if <> "abc" then print_endline "1" else print_endline "0" if <> "abc" then print_endline "1" else print_endline "0" if <> "abc" then print_endline "1" else print_endline "0" if <> "abc" then print_endline "1" else print_endline "0" (* does not work *) (* let re = "a" in *) (* if <> "aab" then *) (* print_endline "1" *) (* else *) (* print_endline "0"; *) let f = <> in if f "abc" then print_endline "1" else print_endline "0"; if f "bbc" then print_endline "1" else print_endline "0" ;; (* This does not seem to work when used in a toplevel. *) <> "tata"