;; predicate (bind-func is_touch_palm:[i1,TOUCHINPUT*]* (lambda (obj) (if (= (& (tref obj 4) TOUCHEVENTF_PALM) 0) #f #t)))