Files-0.1.1.0: src/Main.hs

module Main where
import System.Files
import System.Environment
main :: IO ()
main = do
    (output:numLines:files) <- getArgs
    let n = read numLines 
    allLines <- heads n files
    writeFile output (unlines allLines)
    print (hello "Steven")
    putStrLn "hello world"