nextScene :: Scene -> IO Scene
nextScene scene =
    if isPiecePresentInScene scene then
        return $ lowerPieceInScene scene
    else do
        piece <- nextPiece
        return $ addPieceToScene piece scene
nextScene :: Scene -> IO Scene
nextScene scene =
    if isPiecePresentInScene scene then
        return $ lowerPieceInScene scene
    else do
        piece <- nextPiece
        return $ addPieceToScene piece scene
nextScene scene =
    if isPiecePresentInScene scene then
        return $ lowerPieceInScene scene
    else do
        piece <- nextPiece
        return $ addPieceToScene piece scene