Stabilise benchmarks wrt. GC
[nofib.git] / real / hidden / Main.hs
1 module Main(main) where
2 import Numbers
3 import Vectors
4 import Hide
5 import MyIO
6 import EdgePlate ( Input(..) ) -- partain
7 import Postscript ( Output(..) ) -- partain
8 import Control.Monad
9 import System.IO
10 import System.Environment
11 import NofibUtils
12
13 main = do
14 input <- hGetContents stdin
15 replicateM_ 20 $ do
16 ls <- salt input
17 (getFilename $
18 process (\viewdir -> hiddenline viewdir. map read. lines)) (lines ls)