main.ml

open Ast_coffee

let () =
  let f = Chainop (Var "a", [(Lt, Var "b"); (Le, Var "c"); (Eq, Var "d")]) in
  print_endline (string_of_value f)