let cmdliner_term () =   let open Cmdliner in   Term.(     pure (function       | None -> `Full       | Some s -> parse_samtools s)     $ Arg.(         value & opt (some string) None         & info ["R""region"] ~docv:"REGION"           ~doc:"Specify a region; using samtools' format"       )   )