>>> S.sum_ $ S.read $ S.takeWhile (/= "total") S.stdinLn :: IO Int 1000<Enter> 2000<Enter> total<Enter> 3000
>>> :set -XTypeApplications >>> S.sum $ S.take 2 (S.readLn @IO @Int) 10<Enter> 12<Enter> 22 :> ()
>>> S.toList $ S.take 2 (S.readLn @IO @Int) 10<Enter> 1@#$%^&*\<Enter> 12<Enter> [10,12] :> ()
reread readIORef :: IORef (Maybe a) -> Stream (Of a) IO () reread Streams.read :: System.IO.Streams.InputStream a -> Stream (Of a) IO ()