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