+}
+
+sub generate ($) {
+ my ($num) = @_;
+ return undef if $no_generate;
+ my $alias = $by_number[$num];
+ return $alias if $alias;
+ run_generator qw(create)
+ $!=0; $?=0; (system $generator, qw(create), comment_make $num)
+ ==0 or die "$generator failed ($! $?)";