(bind-func print:[void,Pair*]* (lambda (p) (if (null? p) (begin (printout "<>") void) (begin (printout "<" (tref p 0) "," (tref p 1) ">") void))))