(bind-func print (lambda (tex:Texture*) (if (null? tex) (printf "<TEX: 0x0>") (printf "<TEX: id:%d type:%d width:%d height:%d>" (id tex) (type tex) (width tex) (height tex))) void))