chomp($s=<>);$z='ham';print $s ne $z?$s:'',"$z\n"