type irexpr
  = IExpr

type global = Global

type program =
  { globals : global list
  }