(def unzip (xs (o n 2)) (apply map list (tuples xs n))) arc> (unzip '(a b c d e f) 3) ((a d) (b e) (c f))