let escape_menu_label s = replace_in_string ~pat: "_" ~subs: "__" ~s