regression/flat-vector.sml

   1 val v = Vector.tabulate (10,
   2    (fn x =>
   3       let
   4          fun toChar x = Char.chr (Char.ord #"0" + x)
   5       in
   6          (toChar 0, toChar x)
   7       end))
   8 val x = Vector.sub (v, 8)
   9 val _ = print "should be 08\n"
  10 val _ = print (str (#1 x) ^ str (#2 x) ^ "\n")