my $s="";
while(chomp($s.=<STDIN>)){print "$s\n"}