/dev-haskell/control-monad-loop/