Why does Lisp continue to exist?

So why does it? Is it used for writing kernels? For web servers? For browsers? For office applications? It's a leveled programming language that can't even be used to make drivers or anything that directly communicates the hardware. True, it has a very elegant way of expressing data structures and handling them, but what's the point of all that if you can't even use Lisp to make useful programs. Unless you can name one. But you can't

Lisp is old and tired. Lisp is only useful for jacking off to SICP and Sussman
Let Lisp rest in piece.

Because I can write Lisp using Python style


to make-dir-proxy parent path
  ! to get-name path
  ! ! l = length path
  ! ! when and (plusp l) (eql (aref path (- l 1)) #\/)
  ! ! ! setf path (subseq path 0 (- l 1))
  ! ! file-namestring path
  ! to special? x
  ! ! n = get-name x
  ! ! and (> (length n) 0) (char= (aref n 0) #\.)
  ! to prn :> "$(dir '{get-name path}')"
  ! to handle as
  ! ! list-case as
  ! ! ! "/exps" :> list (list (list "print" prn)) nil
  ! ! ! "/" b
  ! ! ! ! xs = handle '("list")
  ! ! ! ! unless find b xs :test 'equal :> error "dir has no `{b}`"
  ! ! ! ! n = "{path}{b}"
  ! ! ! ! if (file-p n)
             (coerce (load-file-bytes n) 'list)
             (make-dir-proxy (cons (get-name path) parent) "{n}/")
  ! ! ! "file" b :> if (file-p "{path}{b}") :yes :no
  ! ! ! "folder" b :> if (folder-p "{path}{b}") :yes :no
  ! ! ! "name" :> get-name path
  ! ! ! "host_path" :> path
  ! ! ! "of" b :> equal b "dir"
  ! ! ! "list" :> do
  ! ! ! ! xs = remove-if special? (ls path)
  ! ! ! ! map x xs :> get-name x
  ! ! ! otherwise :> error "dir can't `{as}`"
  ! typed-closure "/exps" (&rest args) (handle args)