(bind-func print (lambda (a:Rational) (let ((reduced (Rational_reduce a))) (printf "%lld/%lld" (tref reduced 0) (tref reduced 1))) void))