-- wypisanie możliwych bić w postaci [((plansza, pozycja), sąsiedzi)]
getPossibleKills :: ((Board,Position), [Position]) -> [(Board,Position)]
getPossibleKills ((board,from), []) = []
getPossibleKills ((board,from), neighbour) = map fst [((kill board from to, to), (getNeighbours (kill board from to) to)) | to <- map (findPositionAfterKill from) neighbour, isInside to, isEmptyField board to] ++ concatMap getPossibleKills [((kill board from to, to), getNeighbours (kill board from to) to) | to <- map (findPositionAfterKill from) neighbour, isInside to, isEmptyField board to]