(defn base-positions 
  []
  (white [Queen 'd1] [King 'e1] [Rook 'a1 'h1] [Knight 'b1 'g1] [Elephant 'c1 'f1] [Pawn 'a2 'h2]))