use B::Keywords qw/@Barewords @Functions/;
use Pod::Functions '%Type'; # overkill
my %all = (%Type, map {$_=>1} @Barewords, @Functions);
for my $f (sort keys %all) {
	my $p = eval { prototype("CORE::$f") };
	$p = defined $p ? "($p)" : '';
	print "$f $p\n";	
}