cat3.hs

import System

main = putStr . concat =<< mapM readFile =<< getArgs

[Sample Code Index] [Support Site Top]