Making alist that executes multiple commands

[Heime]

What changes can I make to the following to allow me to execute more 
commands than just one (as in alkotr-ar and alkotr-go).

For ar I want to call functions alkotr-ar and alkotr-af

  (let ( (lookup-alist
           '((ar . alkotr-ar)
             (go . alkotr-go))))

    (dolist (actm symbol-list)
      (let ((func (cdr (assoc actm lookup-alist))))
        (if func
             (funcall func)
          (message "ACTM Unrecognised: %s%s" "'" actm)))))