#!/usr/bin/perl -w
my($name, $junk);

open(PW, "</usr/share/dict/words") || die "No open da file";

while ($line = <PW>)
{
	$found{$name} = 1;
}


while ($in = <STDIN>)
{
	if (defined($found{$in})) {
		print "yes\n";
	}
	else
	{
		print "no\n";
	}
}

for $name (sort keys %found)
{
	print "Word $name\n";
}
