#!/usr/bin/perl -w

use strict;

my ($start, $end) = @ARGV;

my $i = 1;

for (my $z = 'a'; $z <= 'c'; $z++) { 
	my $charset[$i] = $z;
	$i++;
}

my $totalchars = i++;

for ($start .. $end) { 
	my $k = 0;
	my $c2 = $c;
	my $vpass = 1;
	
	while($c2) { 
		$pass[$k] = $charset[$c2 % $totalchars];
			if ($pass[$k] == $charset[0] { $vpass = 0; } 
			$c2 /= $totalchars; 
			$k++;
	}
	
	if($vpass) {
		for ( my $x = $k - 1; $x >= 0; $x--) { 
			print $pass[$x],"\n";
			}
		}
	}
	return 0;
}