#!perl
use strict;
use Math::Base36 ':all';

my $number = decode_base36('9999');
print lc encode_base36(++$number)." " for 1..100;