#!/usr/local/bin/perl

@input = <STDIN>;
chop (@input);

# first, reverse the order of the words in each line
$currline = 1;
while ($currline <= @input) {
        @words = split(/ /, $input[$currline-1]);
        @words = reverse(@words);
        $input[$currline-1] = join(" ", @words, "\n");
        $currline++;
}

# now, reverse the order of the input lines and print them
@input = reverse(@input);
print (@input);
