let print_lookup_map map stringer = let print_item (secondary, item) = print_string (stringer secondary item) in List.iter print_item (StringMap.bindings map)