コードがあった: match (modeA opts, modeB opts, modeC opts ..., modeG opts) with | (true, _, _, _, _, _, _) -> Opt.setMode A | (_, true, _, _, _, _, _) -> Opt.setMode B | (_, _, true, _, _, _, _) -> Opt.setMode C | (_, _, _, true, _, _, _) -> Opt.setMode D | (_, _, _, _, true, _, _) -> Opt.setMode E | (_, _, _, _, _, true, _) -> Opt.setMode F | (_, _, _, _, _, _, true) -> Opt.setMode G | (_, _, _, _, _, _