regression/slower.sml

   1 fun loop (left: IntInf.int): unit =
   2         case IntInf.compare (left, 4294967296) of
   3         LESS => ()
   4         | EQUAL => ()
   5         | GREATER => loop (left + ~1)
   6
   7 val _ = loop 4304967296
   8
   9 val _ = print "All ok\n"