module Main
( main
) where

import           Data.Char
import qualified Data.Set as S

hangman :: String -> S.Set Char -> IO ()
hangman word guessed = do
    if S.size guessed <= 8
        then do
            c <- getChar
            if isAlpha c
                then do
                    let newGuessed = (S.insert c guessed)
                    putStrLn $ map (\c -> if c `S.member` newGuessed then c else '_') word
                    putStrLn $ "Guessed: " ++ S.toList newGuessed
                    putStrLn $ take 80 $ repeat '-'
                    putStrLn ""

                    if (S.fromList word) `S.isSubsetOf` newGuessed
                        then putStrLn "You won!"
                        else hangman word newGuessed
                else hangman word guessed
        else putStrLn $ "You lost, you idiot. The word was: " ++ word

main :: IO ()
main = do
    hangman "hello" S.empty