(bind-type XTM_Point2d <float,float>) (bind-func get_x:[float,XTM_Point2d]* (lambda (obj) (tref obj 0)))