kingCastleMove Black Long  =
  (toSquare eFile eighthRank, toSquare cFile eighthRank)
kingCastleMove Black Long  =
  (toSquare eFile eighthRank, toSquare cFile eighthRank)
kingCastleMove Black Long  =
  (toSquare eFile eighthRank, toSquare cFile eighthRank)