#!Perl -w

use strict;
use diagnostics;

my (@lines);

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