Any chance of changing the semantics of string literals so they aren't static?

# let f() = "a";;
val f : unit -> string = <fun>
# let s = f();;
val s : string = "a"
# s.[0] <- 'b';;
- : unit = ()
# f();;
- : string = "b"

-- 
Dr Jon D Harrop, Flying Frog Consultancy Ltd.
OCaml for Scientists
http://www.ffconsultancy.com/products/ocaml_for_scientists/?e