------------------------------------------------------------------------------
-- pieces that are pinned
pinned :: Board -> BitBoard
pinned b = discovererOrPinned b (b^.next) (b^.next)
pinned :: Board -> BitBoard
pinned b = discovererOrPinned b (b^.next) (b^.next)
pinned b = discovererOrPinned b (b^.next) (b^.next)