regression/slow2.sml

   1 fun loop (left: IntInf.int): unit =
   2         if left = 0
   3            then ()
   4            else loop (left + ~1)
   5
   6 val _ = loop 100000000
   7
   8 val _ = print "All ok\n"