(* let rec string_of_term l = fun _ -> "";; *)
-let rec string_of_term =
+let string_of_term =
let boundvar x = "v" ^ string_of_int x in
let varname lev l n =
if n < lev then boundvar (lev-n-1)
and string_of_term_no_pars lev l = function
| `Lam _ as t -> string_of_term_no_pars_lam lev l t
| #nf as t -> string_of_term_no_pars_app lev l t
- in string_of_term_no_pars 0
+ and string_of_term t = string_of_term_no_pars 0 t in
+ string_of_term
;;
let print ?(l=[]) = string_of_term l;;