#!/usr/bin/perl -w
use strict;

while(<>)  {
	
	chomp();
	my $shit = uc();
	my $bettershit = "";
	
	while($shit)  {
		$bettershit = $bettershit . chop($shit) . " ";
	}
	
	print reverse($bettershit) . "\n";
	
}