open Trivialml_lexer;;
open Trivialml_parser;;
open Trivialml;;
open Environment;;
open Printer;;

let parse () =
  Trivialml_lexer.parse_stdin ();;

let p =
  parse () in
let result =
  program_eval p Environment.empty in
print_string (string_of_value result);
print_newline ();;