How to turn a function into a command in Emacs Lisp?

(defun foo ()
  "Print \"bar\""
  (interactive)
  (message "bar"))

(foo)

(global-set-key (kbd "C-<f1>") #'foo)