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