nptools-0.1: pad.hs

import qualified Data.ByteString as S
import System.Environment
main :: IO ()
main = do [i,inp,outp] <- getArgs
          s <- S.readFile inp
          S.writeFile outp $ S.append s $ S.replicate (read i - S.length s) 0