[project @ 2000-03-30 14:06:46 by simonpj]
[nofib.git] / real / pic / Main.hs
1 --
2 -- Patricia Fasel
3 -- Los Alamos National Laboratory
4 -- 1990 August
5 --
6 import Pic
7 import PicType -- added by partain
8 import IO(hPutStr,stderr)--1.3
9
10 main = do
11 hPutStr stderr "Enter the number of particles: "
12 s <- getContents
13 let (nPart, rest) = (head (reads s)) :: (Int, String)
14 putStrLn (takeWhile ((/=) '\n') s ++ (pic nPart))
15