open Expression

open Tokens
open Lexer
open Nodes
open Analysis

open Gobject.Data
open StdLabels

open Astdisplay
open Calculate

;;

ignore (Random.self_init ());

let l = Lexer.create stdin in
let p = Parser.create l in
let pt = Parser.parse p in
ignore (Analysis.visit_edge Calculator.calculating_visitor 
   Nodes.Null_Node pt);
flush stdout;
Analysis.visit_edge GtkPrinter.gtk_printing_visitor
          Nodes.Null_Node pt