(*; OCaml/Scheme polyglot, will be parsed as OCaml

   (begin
      (display "[scm](ml) hello world\n")
      (exit)
      ( *)

(* 12345 *)
(* 67890 " 12345 " *)
   (* 67890 (* 12345 '
               67890 (** 12345
              '       *)*)*)

let a = "xxx\" (* xxx *)";;
let b = '\'';;

print_string(*67890*)"[ml](scm) hello world\n";;
(*12345*)

      (* )))
( *)