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: ;;   (let ((res (arte-info nmr)))
  ;;     (wget (car res) (cadr res))))
  
   (defun gogogo (nmr)
       (let* ((info (arte-info nmr))
              (url (car info))
              (titel (cadr info))
              (wget-cmd (list "-c" url "-O" (concatenate 'string  titel ".mp4"))))
         (princ wget-cmd)
         (sb-ext:run-program "/usr/local/bin/wget" wget-cmd
                             :wait nil
                                          ;  :output *standard-output*
                             )
         ))
  
  ;; ** DONE filename zv datum.
  ;; ** TODO fur shell / clisp, sbcl
  
  
  
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*))
  
  