3 ms·

I think your "while" is "when".

• tel 12y ago
  Oh, thanks! Good catch. Here's `while` while :: Monad m => m Bool -> m a -> m () while conde bodye = do cond <- conde if cond then bodye >> while conde bodye else return ()