open Cmdliner

let app_info =
  Term.info "myapp" ~version:"1.0.0" ~doc:"my super awesome app"

let app_term =
  let open Term in
  ret (pure (`Help (`Pager, None)))

let print str =
  print_endline str

let print_info =
  let doc = "Print a string"
  and man =
    [`S "DESCRIPTION";
     `P "Prints a string...what else do you want :P"
    ] in
  Term.info "print" ~doc ~man

let print_term =
  let docv = "STR"
  and doc = "$(docv) to print" in
  let ainfo = Arg.(info [] ~docv ~doc) in
  let arg = Arg.(required (pos 0 (some string) None ainfo)) in
  Term.(pure print $ arg)

let _ =
  Term.eval_choice (app_term, app_info)
    [(print_term, print_info)]