parse tree

(parse-string "\\((\".[^\"]?\") +\\((\"[a-z][^\"]?\" +\".\" +\".[^\"]?\" *)\\) +(\\d{2,4})\\)")
;; ==>
(:SEQUENCE #\(
 (:REGISTER
  (:SEQUENCE #\" :EVERYTHING
   (:GREEDY-REPETITION 0 1 (:INVERTED-CHAR-CLASS #\")) #\"))
 (:GREEDY-REPETITION 1 NIL #\ ) #\(
 (:REGISTER
  (:SEQUENCE #\" (:CHAR-CLASS (:RANGE #\a #\z))
   (:GREEDY-REPETITION 0 1 (:INVERTED-CHAR-CLASS #\")) #\"
   (:GREEDY-REPETITION 1 NIL #\ ) #\" :EVERYTHING #\"
   (:GREEDY-REPETITION 1 NIL #\ ) #\" :EVERYTHING
   (:GREEDY-REPETITION 0 1 (:INVERTED-CHAR-CLASS #\")) #\"
   (:GREEDY-REPETITION 0 NIL #\ )))
 #\) (:GREEDY-REPETITION 1 NIL #\ )
 (:REGISTER (:GREEDY-REPETITION 2 4 :DIGIT-CLASS)) #\))