while($l = <STDIN>) {
  $s = "";
  foreach $i (reverse(split(/\s+/, $l))) { $s = "$s$i "; }
  chop($s);
  print "$s\n";
}