let map_str_item f =
              object
                inherit map as super
                  
                method str_item = fun x -> f (super#str_item x)
                  
              end