let set k v w =
  Hashtbl.replace store ~key:k ~data:v;
  Writer.write_line w "OK"