Emacs: a function that writes elisp code that adds a user-specified key binding

Question

How can I make an interactive function that interactively reads the key from the user (for example, when you press Ch k), and then writes some line as follows:

(global-set-key (kbd "C-x C-s") 'hello)

where part of Cx Cs is replaced accordingly by the read key.

Some novice users have a problem creating keys ... and I'm actually embarrassed too, so I thought let's just automate it.

Answer 1

It works:

(defun insert-key (key)
  (interactive (list (read-key-sequence "Key: ")))
  (insert "(global-set-key (kbd \"" (key-description key) "\") 'hello)\n"))

Answer 2

? , , , : global-set-key - . , (IIUC): (, ..), .