cat.hs

main = do cs <- getContents
          putStr cs

[Sample Code Index] [Support Site Top]