9 //Start :: *World -> (ParserOutput, *World)
12 //# (out, w) = stdio w
13 //# (toparse, out) = readEntireFile out
14 //# (_, w) = fclose out w
15 //= (lexer toparse, w)
17 Start :: *World -> (ParserOutput, *World)
20 # (toparse, out) = readEntireFile out
21 # (_, w) = fclose out w
22 = (parse (lexer toparse), w)
25 readEntireFile :: *File -> *([Char], *File)
27 # (b, c, f) = freadc f
29 # (cs, f) = readEntireFile f