module Test

type re =
  | Zero
  | One
  | Char of int
  | Seq of re * re
  | Add of re * re
  | Star of re