(define pat9 (match '(a b c))) (println 'pat9 (pat9 '(a))) ;; fail (println 'pat9 (pat9 '(a b))) ;; fail (println 'pat9 (pat9 '(a b c))) ;; success! (println 'pat9 (pat9 '(a b c d))) ;; fail!