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))