Мне становится комфортно с идеей замены циклов рекурсией. Я'Я возился с любимым проектом, и я хотел протестировать некоторые функции ввода текста, поэтому я написал небольшой интерфейс командной строки, который постоянно запрашивает ввод, пока не получит определенную команду выхода.

Это выглядит примерно так:

getCommandsFromUser = do
    putStrLn "Enter command: "
    keyboardInput