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