Recursive IO action

-- Программа принимает слова, вводимые в командной строке, до
-- получения пустой строки, затем превращает полученные слова в
-- перечень с буллитами в виде астерисков и выводит их.

import Control.Monad

inputToList :: IO ()
inputToList = aux []
  where
    aux xs = do
      input <- getLine
      if input /= ""
        then aux (input : xs)
        else mapM_ (putStrLn . ("* " ++)) (reverse xs)

main :: IO ()
main = do
    putStrLn "Enter words and hit 'Enter' or just hit enter to get the list."
    inputToList

{--
Вывод:
Enter words and hit 'Enter' or just hit enter to get the list.

Ввод:
foo
bar
baz

Вывод:
* foo
* bar
* baz
--}