[project @ 1997-03-14 08:02:40 by simonpj]
[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 IOHandle -- 1.3
9 import IO -- 1.3
10
11 main =
12 do
13 ls <- hGetContents stdin
14 (getFilename $
15 process (\viewdir -> hiddenline viewdir. map read. lines)) (lines ls)