import Prog (prog) import System main = do m <- getArgs let n = read (head m) str <- getContents putStr (prog n str)