let brab_up_to = if !brab_up_to && not do_brab then raise (Arg.Bad "use -upto in combination with brab") else !brab_up_to