type my_regexp=
  | Epsilon
  | Char of char
  | Orchar of char list
  | Plus of my_regexp
  | Star of my_regexp
  | Or of my_regexp * my_regexp
  | Groupe of my_regexp
  | List of my_regexp * my_regexp

Add a code snippet to your website: www.paste.org