open Trivialml;;

let rec string_of_value v =
  match v with
    | VInt i ->
      string_of_int i
    | VBool b ->
      if b then "true" else "false"
    | VClosure _ ->
      "#<closure>";;