sub cookup2 {
    my %usd = @_;
    sub ask_monkey_about {
        my $cst = shift;
        $usd{$cst};
    };
}