#!/usr/bin/perl -w

$limit = shift;
if ($limit eq "") {
  $limit = 20;
}

$nb = "000";
print $nb;
print "\n";
while ($nb < $limit) {
	$nb++;

	print $nb;
	print "\n";
 	$nb = &dec2dec($nb);
	print $nb;
	print "\n";
}


#****************************************************************************
sub dec2dec {
# standardise decimal on 2 characters
local($val) = @_;
local($sbin);
$_=" $val ";
s/ 0 /00/;
s/ 1 /01/;
s/ 2 /02/;
s/ 3 /03/;
s/ 4 /04/;
s/ 5 /05/;
s/ 6 /06/;
s/ 7 /07/;
s/ 8 /08/;
s/ 9 /09/;
s/ //g;
$sbin = $_;
}
#****************************************************************************