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"