function toString overload(p as Pnt ptr) as string
    dim as zstring ptr result
    sprintf(result, "(%i, %i)", p->x, p->y)
    return *result
end function

dim as pnt p = type<Pnt>(5,2)
print toString(@p)
sleep