IO.hs

module Main where
{-
main :: RealWorld -> ((), RealWorld)

type IO a  =  RealWorld -> (a, RealWorld)

-}

{-
На этом шаге вы будете работать с монадой IO, а значит, ваша программа будет взаимодействовать с операционной системой. Чтобы тестирующая система смогла оценить вашу программу, пожалуйста, используйте только функции, осуществляющие ввод/вывод на терминал: getChar, putChar, putStr, putStrLn, getLine. Все эти функции уже будут находиться в области видимости, так что вам не следует их импортировать. По той же причине, главная функция вашей программы будет называться не main, а main' (со штрихом).

Напишите программу, которая будет спрашивать имя пользователя, а затем приветствовать его по имени. Причем, если пользователь не ввёл имя, программа должна спросить его повторно, и продолжать спрашивать, до тех пор, пока пользователь не представится.

Итак, первым делом, программа спрашивает имя:

What is your name?
Name: 

Пользователь вводит имя и программа приветствует его:

What is your name?
Name: Valera
Hi, Valera!


Если же пользователь не ввёл имя, необходимо отобразить точно такое же приглашение ещё раз:
What is your name?
Name: 
What is your name?
Name: 
What is your name?
Name: Valera
Hi, Valera!


Пожалуйста, строго соблюдайте приведенный в примере формат вывода. Особое внимание уделите пробелам и переводам строк! Не забудьте про пробел после Name:, а также про перевод строки в самом конце (ожидается, что вы будете использовать putStrLn для вывода приветствия пользователя).
-}

main = do 
            putStrLn "What is your name?" 
            putStr "Name: "
            name <- getLine
            if name == "" then main else putStrLn $ "Hi, " ++ name ++ "!"