let
from_buffer b =
let
s = create ()
in
attach_buffer s b;
s