import System.Process.Run

main = do
    print $ "Input: " ++ show (length input)
    result <- readProcess "/bin/cat" [] (take 135168 input)
    case result of
        Left code -> print ("failed with exit code: " ++ show code)
        Right out -> putStrLn $ "out: " ++ show (length out) ++ " characters"
  where
    input = concat [show n ++ "," | n<-[1..]]