[project @ 1996-07-25 21:02:03 by partain]
[nofib.git] / spectral / minimax / Main.hs
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