MODULE Compiler;

FROM FIO IMPORT StdIn;
FROM SYSTEM IMPORT ADR;

FROM Lexer IMPORT Lexer, LexerDestroy, LexerInitialize;
FROM Transpiler IMPORT Transpile;

VAR
  ALexer: Lexer;

BEGIN
  LexerInitialize(ADR(ALexer), StdIn);

  Transpile(ADR(ALexer));

  LexerDestroy(ADR(ALexer))
END Compiler.