(let ((namespaced-sym (intern (format "fwoar/%s" name))))

  (let ((namespaced-sym-old (intern (format "fwoar/%s" name)))
        (namespaced-sym (intern (format "data-lens:%s" name))))

       (cl-defun ,namespaced-sym-old ,args
         ,@body)

                for rest-arg = (cl-find-if (fwoar/just-after

                for rest-arg = (cl-find-if (data-lens:just-after

  `(fwoar/def-ns-fun ,name ,args
     (lambda (,seq)
       ,@body)))

  (let* ((docstring (when (stringp (car body))
                      (car body)))
         (body (if docstring
                   (cdr body)
                 body)))
    `(fwoar/def-ns-fun ,name ,args
       ,docstring
       (lambda (,seq)
         ,@body))))

  (mapcar (lambda (it)
            (apply f it args))
          list))

  "Return a function that maps F over LIST with possible extra ARGS"
  (map (type-of list)
       (lambda (it)
         (apply f it args))
       list))

(cl-defgeneric data-lens:functionalize (it)
  (:method ((it hash-table))
           (lambda (key &optional default)
             (gethash key it default)))
  (:method ((it vector))
           (lambda (idx &optional default)
             (let ((present-p (and (>= idx 0)
                                   (< idx (length it)))))
               (if present-p
                   (aref it idx)
                 default))))
  (:method ((it symbol))
           (symbol-function it))
  (:method ((it function))
           it)
  (:method ((it subr))
           it))