import System.Environment

main = do
    filenames <- getArgs
    stdin <- getContents
    putStr stdin
    writeFile (getFilename filenames) stdin
      where
        getFilename :: [String] -> String
        getFilename [] = "stdout.txt"
        getFilename (fn:_) = fn