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