(bind-func xtm_division (lambda (a:Rational b:i1) (Rat (* (tref a 0) (i1toi64 b)) (* (tref a 1) 1))))