A simple coroutine example from the Monad.Reader#19