sub testing
{
    my $site = sub { callsite() };
    my $addr =  $site->();
    printf "Op address is 0x%x\n", $addr;
    my $op = make_op_object($addr);
    printf("op %s, name: %s, parent: %s\n", $op, $op->name, $op->parent);

    # I can get OPs by walking and looking for $op_addr,
    # but I don't want to do that.
    my $walker = B::Concise::compile('-terse', '-src', \&testing);
    B::Concise::walk_output(\my $buf);
    $walker->();   # walks and renders into $buf;
    print $buf;
}

testing();