MODULE Compiler;

FROM FIO IMPORT StdIn;
FROM SYSTEM IMPORT ADR;

FROM Lexer IMPORT Lexer, lexer_destroy, lexer_initialize;
FROM Transpiler IMPORT transpile;

VAR
  ALexer: Lexer;

BEGIN
  lexer_initialize(ADR(ALexer), StdIn);

  transpile(ADR(ALexer));

  lexer_destroy(ADR(ALexer))
END Compiler.