(bind-func xtm_subtraction (lambda (a:Rational b:i32) (Rat (- (tref a 0) (* (tref a 1) (i32toi64 b))) (tref a 1))))