my( $code, $desc ) = @_;
    warn sprintf "%s %d # %s [%s(%d)]\n",