(define pat4 (match '(a?symbol bc?pair d?symbol))) ;; match a symbol followed by a pair followed by a symbol
(println 'pat4a: (pat4 '(a (b . c) d))) ;; success with - and now with named variables!
(println 'pat4b: (pat4 '(aa (bb . cc) dd))) ;; success