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