interactiveTeamSelection :: [Team] -> IO Team
interactiveTeamSelection teams = do
    let state = list () (V.fromList sortedTeams) 1
        sortedTeams = sortBy (compare `F.on` teamName) teams
    finalSt <- defaultMain app state
    let Just (_, t) = listSelectedElement finalSt
    return t
interactiveTeamSelection :: [Team] -> IO Team
interactiveTeamSelection teams = do
    let state = list () (V.fromList sortedTeams) 1
        sortedTeams = sortBy (compare `F.on` teamName) teams
    finalSt <- defaultMain app state
    let Just (_, t) = listSelectedElement finalSt
    return t
interactiveTeamSelection teams = do
    let state = list () (V.fromList sortedTeams) 1
        sortedTeams = sortBy (compare `F.on` teamName) teams
    finalSt <- defaultMain app state
    let Just (_, t) = listSelectedElement finalSt
    return t