val ident : loc:loc -> string -> t
val sprintf : loc:loc -> ('a, unit, string, t) format4 -> 'a
val access : loc:loc -> string -> string -> t
val int_const : loc:loc -> int -> t
val string_const : loc:loc -> string -> t
val app : loc:loc -> t -> t -> t
val app_lab : loc:loc -> t -> string -> t -> t
val app_list : loc:loc -> t -> t list -> t
val fun_list_l : loc:loc -> (string * t) list -> t -> t
val send : loc:loc -> t -> string -> t
val variant : loc:loc -> string -> t list -> t
val tuple : loc:loc -> t list -> t
val let_one : loc:loc -> ?rec_:bool -> Pat.t -> t -> t -> t
val let_ : loc:loc -> ?rec_:bool -> (Pat.t * t) list -> t -> t
val assert_false : loc:loc -> t
val objmagic_unit : loc:loc -> t
val failwith_ : loc:loc -> string -> t
val false_ : loc:loc -> t
val list : loc:loc -> t list -> t