let append k v' w =
  let v = or_else (Hashtbl.find store k) "" in
  Hashtbl.replace store ~key:k ~data:(v ^ v');
  Writer.write_line w "OK"