my @input = <STDIN>;
my $i = $#input;
while ($i >= 0) {
  print $input[$i--];
}