(bind-func print:[void,BTree*]*
(lambda (tree)
(printout "<")
(let ((f (lambda (tree)
(if (null? tree) void
(begin
(printout (BTree_value tree) " ")
(f (tref tree 1))
(f (BTree_right tree))
void)))))
(f tree)
(printout ">")
void)))