{-# LANGUAGE CPP #-}
#if __GLASGOW_HASKELL__ > 710
import           Control.Applicative       ((<$>))
#endif
import           System.Console.ListPrompt (def, simpleListPrompt)

main :: IO ()
main = do
    putStrLn "Type one list item per line and then press enter twice:"
    items <- readItems
    choice <- simpleListPrompt def items
    putStrLn $ "You choose: " ++ show choice

readItems :: IO [String]
readItems = reverse <$> loop []
  where
    loop acc = do
        ln <- getLine
        if null ln
            then return acc
            else loop (ln : acc)