(define pat5 (match '(one? (two? . three?) four?))) ;; match inside pair
(println 'pat5a: (pat5 '(a (b . c) d))) ;; success return named matches from inside pair
(println 'pat5b: (pat5 '(#(a a1) (b . c) "hello world"))) ;; match mix of types (no type checks defined in pattern)