sub _{
    vec($_,$%,d_)=eval"$%x$_[$%]";
    print chr vec($_,$%,d_)
}