Module Chatml.Chatml_lang
type pattern =
| PWildcard
| PVar of string
| PInt of int
| PBool of bool
| PFloat of float
| PString of string
| PVariant of string * pattern list
type stmt =
| SLet of string * expr
| SLetRec of (string * expr) list
| SModule of string * stmt list
| SOpen of string
| SExpr of expr
and clos = {
params : string list;
body : expr;
env : env;
}
val create_env : unit -> env
val find_var : env -> string -> value option
val set_var : env -> string -> value -> unit
val a : string -> string -> string -> unit
val eval_stmt : env -> stmt -> unit