Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeIO/Interact.hs
module Prelude where interact :: (String -> String) -> IO () interact f = do s <- getContents putStr (f s)
