throwStones :: RandomGen g => Board -> Int -> g -> Either String Board
throwStones board 0 _ = Right board
throwStones :: RandomGen g => Board -> Int -> g -> Either String Board
throwStones board 0 _ = Right board
throwStones board 0 _ = Right board