Sophie: mlton-20100608-3.fc15 i686

mlton-20100608-3.fc15.i686.rpm

open MLton.Cont
   
val _ = print(Int.toString(1 + callcc(fn k => throw(k, 2))))
val _ = print "\n"