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