(bind-func copy:[QBuffer*,QBuffer*]*
(lambda (buf)
(let ((dat (tref buf 3))
(dat2 (halloc (tref buf 2)))
(i 0))
(dotimes (i (tref buf 2))
(pset! dat2 i (pref dat i)))
(QBuffer (tref buf 0) (tref buf 1) (tref buf 2) dat2))))