Vehora.hs

module Vehora where

import Control.Monad
import Control.Monad.Fix

logIn :: IO ()
logIn = do
    putStrLn "% Enter password:"
    fix $ \go -> do
        guess <- getLine
        when (guess /= "secret") $ do
            putStrLn "% Wrong password!"
            putStrLn "% Try again:"
            go
    putStrLn "$ Congratulations!"

main :: IO ()
main = logIn