regression/int-inf.4.sml

   1 fun dump (x: IntInf.int): unit =
   2        let val rest = IntInf.quot (x, 10)
   3        in (print o Int.toString o IntInf.toInt o IntInf.rem) (x, 10);
   4           if rest = 0
   5              then print "\n"
   6              else dump rest
   7        end
   8
   9 val _ = dump 12345678901234567890