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