while($l=<STDIN>)print "chomp($l)"