1 module Main where 2 3 import Prog (prog) 4 5 -- #ifdef PAR 6 -- main input = prog input 7 -- #else 8 -- partain: doesn't actually look at input; 9 -- real input is wired into Key.lhs 10 11 main = do 12 str <- getContents 13 putStr (prog str) 14 -- #endif