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