(bind-func print
"specialised print function for Rect*"
(lambda (rct:Rect*)
(if (null? rct)
(printf "<Rect 0x0>")
(printf "<Rect: x=%.3f y=%.3f w=%.3f h=%.3f>"
(convert (tref rct 0) double)
(convert (tref rct 1) double)
(convert (tref rct 2) double)
(convert (tref rct 3) double)))
void))