DEFINITION MODULE Transpiler; FROM FIO IMPORT File; FROM Lexer IMPORT PLexer, Lexer; TYPE TranspilerContext = RECORD indentation: CARDINAL; output: File; lexer: PLexer END; PTranspilerContext = POINTER TO TranspilerContext; PROCEDURE transpile(lexer: PLexer; output: File); END Transpiler.