Enterprise Haskell

http://hackage.haskell.org/package/toilet-0.0.1

shit I could write that in c++ in 1 hour/s.
map<string, bool> people;
std::string country;
std::cin >> country;
if (people[country]==true) cout << country << " is already pissing and/or shitting, fuck off";