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

module IR = struct
  type expr =
    | Int of int
end