function hexstring:string (num:long) %{
    sprintf (THIS->__retvalue, "0x%llx", (long long) THIS->num);
%}

function string:string (num:long) %{
    sprintf (THIS->__retvalue, "%lld", (long long) THIS->num);
%}