[hcoop/debian/mlton.git] / regression / int-inf.4.sml

fun dump (x: IntInf.int): unit =
       let val rest = IntInf.quot (x, 10)
       in (print o Int.toString o IntInf.toInt o IntInf.rem) (x, 10);
          if rest = 0
             then print "\n"
             else dump rest
       end
                  
val _ = dump 12345678901234567890
Commit	Line	Data
7f918cf1 CE	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