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