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"
      )
  )