perl -e "print join' ',map{(scalar reverse $ARGV[$_])./^(0|6|11|17|24|27|30)$/?'ose,':'')}reverse 0..$#ARGV"

psnart a od ot uoy rof pmi ton seod siht tub lc os ton s'ti em rof n eht no si uoy rof fi pmoc uoy sa rp ruoy tub ppus I ,uoy sa ,tiforp dna nuf rof ereh m'I