anchor.diff:    (defparameter *nivo* (alexandria:ensure-gethash "videoJsonPlayer"(nmr2json nmr)))
     (format t "~&* Titel : ~S" (info "VTI"))
     (format t "~&* Aired : ~S" (info "VDA"))
  -  (format t "~&* Bis : ~S" (info "VRU"))
  -;;  (format t "~&* Bes : ~S" (info "VDE"))
  +  (format t "~&* Bis   : ~S" (info "VRU"))
     (format t "~&* Kurz.Bes : ~S" (info "V7T"))
  +  (format t "~&* Bes : ~S" (info "VDE"))
     (format t "~&* Modes : ~S" (alexandria:hash-table-keys (info "VSR")))
     )
   
   (defun arte-get (nmr)
     (defparameter *nivo* (alexandria:ensure-gethash "videoJsonPlayer" (nmr2json nmr)))
  -  (let* ((url (alexandria:ensure-gethash "url" (alexandria:ensure-gethash "HTTP_MP4_SQ_1" (was "VSR"))))
  +  (let* ((url (alexandria:ensure-gethash "url" (alexandria:ensure-gethash "HTTP_MP4_SQ_1" (info "VSR"))))
            (kurz-datum (alexandria:ensure-gethash "VS5" (info "VST")))
            (file-name (concatenate 'string
                                    (apo2bar (blanko2underbar (info "VTI")))
  
positive.code:     (format t "~& =>")
      (format t "~& ~A" file-name)
      (princ wget-cmd)
      ;; (sb-ext:run-program "/usr/local/bin/wget" wget-cmd :wait nil
                          ;;:output *standard-output*
                          ))
  
  ;; heap exhausted faulty
  ;; (defun wget (url output-name)
  
negative.code: ;; (alexandria:hash-table-keys (key-aus-json foojson "VSR"))
  ;; kurz datum
  ;; (ALEXANDRIA:ensure-gethash "VS5" (VALUE-AUS-JSON foojson "VST"))
  
  (defun info (key)
    (alexandria:ensure-gethash key *nivo*))
  
  