open List (*comment (** comment in comment *) *) let id = fun x -> x (**) (*<- empty comment*) (**ocamldoc (*and comment*) *) let _ = print_string "ok\n"