Haskellでループのbreak ref: http://qiita.com/items/55441a27f1df878b853e

file0.txt

import Control.Monad
import Control.Monad.Cont

main :: IO ()
main = do
  (`runContT` const (return ())) $ do
    callCC $ \k -> do
      forM_ [1..10] $ \i -> do
        when (i > 5) $ k ()
        liftIO $ print i