Menu and Submenus in functions

[uzibalqa]

I am making a menu with the following calls

;; Make top menu gundit
(define-key-after global-map
   [menu-bar mcp-menu]
   (cons "MCP" (make-sparse-keymap "MCP")) 'tools)

;; Make submenu daphne
(define-key global-map
   [menu-bar mcp-menu daphne-subm]
   (cons "Daphne" (make-sparse-keymap "daphne")))

;; Make submenu latex
(define-key global-map
   [menu-bar mcp-menu latex-subm]
   (cons "Latex" (make-sparse-keymap "latex")))

Can I make an elisp function to make such menu ?
Would also like that the submenu definitions are
again defined in specific functions.