let () =
  match ask "Automatic?" with
  | `yes -> automatic ()
  | `no -> manual ()