#!/usr/bin/perl -l

(print (join (" ",
 (map {sprintf (reverse (split (//, (substr ($_, 1)))))}
      (sort (qw (jlianregnif ksgnippilc yyrraL zllaW aPSIL
               flaeppa bsah m.ni clla ldexim  ssti 
               tetiuq prehtO w.egaugnal vecin qnaht r,taht
               ua hlaemtao gfo deht elausiv ihtiw x--)))))))