#!/usr/bin/perl
my $x = shift;
chomp $x;
print reverse(substr(crypt($x,"zz" ),2))."\n";