(define pat0 (match '(? ? ?))) (println 'pat0a: (pat0 '(a))) (println 'pat0b: (pat0 '(a b))) (println 'pat0c: (pat0 '(a b c))) (println 'pat0d: (pat0 '(a b c d)))