#!/opt/perl5/bin/perl -w

use strict;

#my $line;
my @lines;

while(my $line=<> and $line ne ".\n"){
	push @lines,$line;
}
foreach(reverse @lines){ 
   	print;                 
}