#!/usr/bin/perl

use warnings;
use strict;

my $str = <>;
chomp $str;
my @array = split //, $str;
@array = reverse @array;

print @array;
print "\n";

exit;