(define reduce-ptrdepth-to-zero (lambda (t) (if (> (impc:ir:get-ptr-depth t) 0) (reduce-ptrdepth-to-zero (impc:ir:pointer-- t)) t)))