print "$_\n" for reverse split //, substr($dna, -10);