9 Start :: *World -> (LexerOutput, ParserOutput, *World)
12 # (toparse, out) = readEntireFile out
13 # (_, w) = fclose out w
14 = (lexer toparse, parse (lexer toparse), w)
16 readEntireFile :: *File -> *([Char], *File)
18 # (b, c, f) = freadc f
20 # (cs, f) = readEntireFile f