【ﾔﾊﾟｰﾘ】XMLをS式に置換えていくスレ【LISP最強】

(xml :version 1.0
     :encoding "UTF-8")
(!DOCTYPE ip
           PUBLIC
           "-//IETF//DTD BLOAT 1.0 IP//EN"
           "bloat.dtd")
(ip
  (header :length 474
    (version :value 4)
    (vos :precedence "Routine"
         :delay "Normal"
         :throughput="Normal"
         :relibility "Normal"
         :reserved 0)
    (total.length :value 461)
    (id :value 1)
    (flags :reserved 0
          :df "dont"
          :mf "last")
    (offset :value 0)
    (ttl :value 255)
    (protocol :value 6)
    (checksum :value 8707)
    (source :address "10.0.0.22"
    (destination :address "10.0.0.1")
    (options
      (end :copied 0
           :class 0
           :number 0))
    (padding :pad 0))
  (payload))