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