etiago

#ifndef EXPERIMENTS_PASSPORT_H
#define EXPERIMENTS_PASSPORT_H

#include <boost/optional.hpp>
#include <string>
#include <utility>

using namespace std;

struct Passport {

etiago

type Hangman = Char
singleton :: Char -> Hangman
singleton c = c

hangmanStdio :: Hangman -> IO()
hangmanStdio h = do
  putStrLn "Guess the character"
  l <- getLine
  let c = toLower $ head l
  if h == c