DEFINE X = A

let x = X

let f = function X -> 1


(* Local Variables: *)
(* compile-command: "camlp4of macro.ml" *)
(* End: *)