att :: ExpectedMove Coords Coords -> Board -> Maybe (BoardField, (ExpectedMove Coords Coords))
att exp board =
    case moveByScenario exp board of
        Just scenMove -> Just scenMove -- By scenario
        _ ->
            case defaultMove board oppSign mySign of -- default move
                Just boardField -> Just (boardField, NoExp)
                _ -> Nothing
att :: ExpectedMove Coords Coords -> Board -> Maybe (BoardField, (ExpectedMove Coords Coords))
att exp board =
    case moveByScenario exp board of
        Just scenMove -> Just scenMove -- By scenario
        _ ->
            case defaultMove board oppSign mySign of -- default move
                Just boardField -> Just (boardField, NoExp)
                _ -> Nothing
att exp board =
    case moveByScenario exp board of
        Just scenMove -> Just scenMove -- By scenario
        _ ->
            case defaultMove board oppSign mySign of -- default move
                Just boardField -> Just (boardField, NoExp)
                _ -> Nothing