let make_label str = Bmdirc.make_label str