open Ast
open Ast.IR
open Baselib
exception Error of string * Lexing.position
let rec analyze_expr expr env =
match expr with
| Syntax.Int n -> Int n.value
;;
let analyze parsed = analyze_expr parsed Baselib._types_
