(bind-func cpTransformWrap (lambda (outer:cpTransform inner:cpTransform) (cpTransformMult (cpTransformInverse outer) (cpTransformMult inner outer))))