9 //Start :: *World -> (ParserOutput, *World)
12 # (toparse, out) = readEntireFile out
13 # (_, w) = fclose out w
16 Start :: *World -> (ParserOutput, *World)
19 # (toparse, out) = readEntireFile out
20 # (_, w) = fclose out w
21 = (parse (lexer toparse), w)
24 readEntireFile :: *File -> *([Char], *File)
26 # (b, c, f) = freadc f
28 # (cs, f) = readEntireFile f