#!/usr/bin/perl
@din=<>;
$maxchars=0;
foreach $line(@din){
	$line =~ s/[\n\r]//g;
	if($maxchars<length($line)){
		$maxchars=length($line);
	}
}
foreach $line(@din){
	for($i=0;$i<$maxchars-length($line);$i++){
		print " ";
	}
	for($i=length($line)-1;$i>=0;$i--){
		print substr($line,$i,1);
	}
	print "\n";
}