$Gate_of_Mystery = $tao  ne  'Eternal Tao' ? undef :
                   $name ne 'Eternal Name', 
                   ( ($heaven, $earth) = [] and  
                     @things[0..9999] = @The_Name
                   )                       ? undef :
sub {	while(1) { 
		$the_mystery = desireless();
	}
	while(1) {
		$the_manifestations = desiring();
	}

	$the_mystery = (*the_mystery = *the_manifestations);
	$the_mystery = \$the_mystery;
}