1 module Main where 2 3 import Prog (prog) 4 5 -- #ifdef PAR 6 -- main input = prog input 7 -- #else 8 -- suspect:main ~((Str str):_) = [ReadChan stdin, AppendChan stdout (prog str)] 9 main = do 10 _ <- getContents -- useless, but that's how it was written 11 putStr (prog "") 12 -- #endif