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