#!/usr/bin/perl -w
use diagnostics;
@liste = ();
while (<STDIN>) {
  unshift @liste, $_;
}
print @liste;