#!/usr/local/bin/perl

while ($line = <STDIN>) {
        $line =~ s/(\w+)(\s+)(\w+)(\s+)(\w+)/$5$2$3$4$1/;
        print ($line);
}
