Setting completion-styles

[Heime]

I want to set completion-styles from the set of symbols passed as
arguments in `actn'.

I want to improve upon this code

(defun lentil-launch (&rest actn)
  "Launcher for Sentinel feature."

  (dolist (action actn)
    (pcase action

      ('basic (setq completion-styles '(basic)))

      ('substring (setq completion-styles '(basic substring)))

      ('orderless (setq completion-styles '(orderless)))

      ('partial (setq completion-styles '(partial-completion)))

      ('flex (setq completion-styles '(flex)))
      ('initials (setq completion-styles '(initials)) )) ))