funny crush eliza - in ocaml