>>> read "123" :: Int 123
>>> read "hello" :: Int *** Exception: Prelude.read: no parse
>>> S.sum_ $ S.read $ S.takeWhile (/= "total") S.stdinLn :: IO Int 1000<Enter> 2000<Enter> total<Enter> 3000
>>> read = Socket.readWith defaultChunkSizePre-release
Control.Monad.ST.runST (do arr <- new_ 10; Monad.zipWithM_ (write arr) [9,8..0] ['a'..]; read arr 3)