blob: abd7a560395ead3f201d58e88a52f047d424b075 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
import System( getArgs )
import Text.Printf
import Parse
import ProofGraph
main = do
args <- getArgs
list <- getLines (head args)
let result = doGraphGen (map (stripReturn) list)
printf $ (show result) ++ "\n"
|