let strlen k w =
  match Hashtbl.find store k with
  | None -> Writer.write_line w "-1"
  | Some v -> Writer.write_line w (Int.to_string (String.length v))