let print_lookup_table table stringer = let print_lookup_map (primary, table) = print_lookup_map table (stringer primary) in List.iter print_lookup_map (StringMap.bindings table)