(bind-func print:[void,/3,double/]* (lambda (v) (printout "<" (vref v 0) "," (vref v 1) "," (vref v 2) ">")))