gistfile1.clj

(prn (let [n nil]
       (match [n]
	      [([:black [:red [:red _ _ _] _ _] _ _] |
		[:black [:red _ _ [:red _ _ _]] _ _] |
		[:black _ _ [:red [:red _ _ _] _ _]])]
	      nil)))


(let [x [1 2]]
  (match [x] [([1 2] | [3 4] | [5 6] | [7 8] | [9 10])] nil)) 

(let [x [1 2]]
  (match [x] [([1 2] | [3 4] | [5 6] | [7 8])] nil))