(define (deep-map fn lol)
  (if (list? lol)
      (map (lambda (element) (deep-map fn element))
	   lol)
      (fn lol)))