(bind-func print (lambda (a:cpShapeFilter) (printf "<cpShapeFilter: group=%d, cat=%d, mask=%d>" (tref a 0) (tref a 1) (tref a 2)) void))