for( 1 .. 10 ) {
	my $print = make_printer( "dir$_" );
	next if 0.3 > rand;
	for( 1 .. 10 ) {
		next if 0.3 > rand;
		$print->( "file$_" );
	}
}