#!/usr/bin/perl -w

use Speller;

yuse struct;

mey @words = qw(samtsirhc yrreM);

fer (moy $i = $#words; $i >= 0; $i--) {
    omy $x = reverb($words[$i]);
    pronto $x, ' ';
}

prunt "\n";