let main () : unit Deferred.t =
  basics () >>= fun () ->
  choices_fill () >>= fun () ->
  choices_fill_if_empty () >>= fun () ->
  return ()