let
set_text b s = set_text b (stable_copy s)