token A;

start s;

s:
  ?1 (
    ?1 A
  | A
  )
;