chess960 clojure revision

Nicer way to do c960

(ns c960)
(def pclist '(B B N N Q R K R))
(defn c960 [](let [c960seq (shuffle (range 1 9))
                   oddBish (first (filter odd? c960seq))
                   evenBish (first (filter even? c960seq))
                   goodseq  (filterv #(not= oddBish %) 
                                     (filterv #(not=  evenBish %)c960seq))]
                (flatten (conj [evenBish oddBish] ;Bishop numbers go first
                               (take 3 goodseq)  ; then Knights and Queens
                               (sort (take-last 3 goodseq)))))) ;then Rook King                                                                   ;rook (sorted)

(defn order [] (->> pclist   ;; list of peices
                   (zipmap (c960))  ;mapped to their square numbers
                   (sort)  ; sorted by squares
                   (vals))) ; return the peices
(println (order))