(functor (foo
          (csi-like (toplevel-command editor-command set-describer!)))
    (register-command!)

    (import scheme)

  (define (register-command! c x #!optional help)
    (toplevel-command c x (or help "No help defined"))))

(use csi)
(module foo-with-csi = (foo csi))

(import foo-with-csi)
(register-command! 'blabla (lambda _ (print "blabla")))