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