module Syntax = struct
type expr =
| Int of
{ value : int
; pos : Lexing.position
}
end
module IR = struct
type expr = Int of int