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)
