use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

while (my $line = <STDIN>){
  chomp($line);

  if ($line eq "end"){
    print "終了します\n";
    exit(0);
  }else{
    print "$line\n";
  }
}