(bind-func print (lambda (vao:VAO*) (if (null? vao) (printf "<VAO: 0x0>") (printf "<VAO: id %d>" (tref vao 0))) void))