CatHs

import System

main = do args <- getArgs
          case args of
            [] -> putStr =<< getContents
            _  -> mapM_ (\a -> putStr =<< readFile a) args