@@ -12,6 +12,9 @@ cat src = File.writeArrays "/dev/stdout" $ File.readArraysUpto (256*1024) src
1212cp :: FilePath -> FilePath -> IO ()
1313cp src dst = File.writeArrays dst $ File.readArraysUpto (256*1024) src
1414
15+append :: FilePath -> FilePath -> IO ()
16+append src dst = File.appendArrays dst $ File.readArraysUpto (256*1024) src
17+
1518ord' :: Num a => Char -> a
1619ord' = (fromIntegral . ord)
1720
@@ -50,3 +53,4 @@ main = do
5053 putStr "avgll " >> avgll src -- get average line length
5154 putStr "llhisto " >> llhisto src -- get line length histogram
5255 putStr "cp " >> cp src "dst-xyz.txt" -- Unix cp program
56+ putStr "append " >> append src "dst-xyz.txt" -- Appending to file