type expr
  = Expr

type global = Global

type program =
  { globals : global list
  }