(bind-func print:[void,!a]* -> (lambda (r a)
(and (t:array? a)
(t:pointer? a)))
(lambda (arr)
(printout "|" (aref arr 0))
(doloop (i (- (num-of-elts arr) 1))
(printout "," (aref arr (+ 1 i))))
(printout "|")
void))