------------------------------------------------------------------------------
-- | my king position
myKingPos :: Board -> Square
myKingPos b = kingByColour (b^.next) b
myKingPos :: Board -> Square
myKingPos b = kingByColour (b^.next) b
myKingPos b = kingByColour (b^.next) b