nptools-0.1: myrev.hs

import qualified Data.ByteString.Lazy.Char8 as L
import System.IO
main :: IO ()
main = mapM_ (hPutLn stdout) . map L.reverse . L.lines =<< L.getContents
  where hPutLn h x = L.hPut h x >> hPutChar h '\n' >> hFlush h