drop.hs

This ought to exist in addition to the head and tail utilities.

module Main where { import IO; import System; main :: IO(); main = do { argv <- getArgs; case argv of { [drop_length] -> do { fi <- getContents; putStr (drop (read drop_length) fi); } } }; }