(* asterisk.sml *) (* Checks parsing of "* )". *) val op* : int * int -> int = (op*);