(bind-func print:[void,TOUCHINPUT*]* (lambda (obj) (printout "<TOUCH id(" (tref obj 3) ") x(" (/ (i32tod (tref obj 0)) 100.0) ") y(" (/ (i32tod (tref obj 1)) 100.0) ")>") void))