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(ALexer: PLexer); END Transpiler.