anchor.diff:                        "http://arte.tv/papi/tvguide/videos/stream/player/D/"
                         nmr
                         "_PLUS7-D/ALL/ALL.json"))
  -         (vec (flexi-streams:octets-to-string (drakma:http-request url))))
  +         (vec (flexi-streams:octets-to-string (drakma:http-request url)
  +                                              :external-format :utf-8)))
       (yason:parse vec) ))
   
   (defun blanko2underbar (string)
  
positive.code:   (alexandria:ensure-gethash key tbl))
  
  (defun arte-info (nmr)
    (let* ((nivo-0 (alexandria:ensure-gethash "videoJsonPlayer" (nmr2json nmr)))
          (url (alexandria:ensure-gethash "url" (alexandria:ensure-gethash "HTTP_MP4_SQ_1" (info "VSR" nivo-0))))
           (kurz-datum (subseq (alexandria:ensure-gethash "VS5" (info "VST" nivo-0))
                               0 4))
           (file-name
            (ASCIIFY (concatenate 'string
                                  (apo2bar (blanko2underbar (info "VTI" nivo-0)))
                                  "-" kurz-datum ".mp4")))
           (raw-cmd  (concatenate 'string  "wget -c " url " -O " file-name))
           )
      (format t "~&* TITEL : ~S" (info "VTI" nivo-0))
      (format t "~&* AIRED : ~A - ~A" (info "VDA" nivo-0)
              (info "VRU" nivo-0))
      (format t "~&* CASE  : ~A" (info "caseProgram" nivo-0))
      (format t "~&* INFO  : ~A" (info "infoProg" nivo-0))
      (format t "~&* KURZ  : ~S" (ASCIIFY (info "V7T" nivo-0)))
      (format t "~&* BES   : ~S" (info "VDE" nivo-0))
      ;;    (format t "~&* MODES : ~A" (alexandria:hash-table-keys (info "VSR" nivo-0 )))
      ;;(format t "~&* CMD  :")
      (format t "~& ~A" raw-cmd)
      ))
  
  (Defun arte-get (nmr)
  
negative.code:   "bypass"
    x)
  (cwd #P"~/arte7")
  
  (defun kill ()
    (run-program "killall" '("wget")
                 :output *standard-output*))
  