(bind-func print:[void,!a]* -> (lambda (r a)
(and (t:vector? a)
(t:pointer? a)))
(lambda (vec)
(printout "/" (vref vec 0))
(doloop (i (- (num-of-elts vec) 1))
(printout "," (vref vec (+ 1 i))))
(printout "/")
void))