displayMenu :: [String] -> IO (Maybe String)
displayMenu items = do
 displayMenuOfValues $ zip items items
displayMenu :: [String] -> IO (Maybe String)
displayMenu items = do
 displayMenuOfValues $ zip items items
displayMenu items = do
 displayMenuOfValues $ zip items items