(define (deep-map-over-atoms f l)
  (cond ((null? l) '())
        ((pair? l)
         (cons (deep-map-over-atoms f (car l))
               (deep-map-over-atoms f (cdr l))))
        (else (f l))))