sub peek_lexicals {
	my $h = peek_my(2);
	print  "\nlexicals-----------------------\n";
	print  "keys=", join (", ", keys %$h), "-\n";
	print  "values=", join (", ", values %$h), "-\n";
	print  "end of lexicals-----------------------\n";
}