anchor.diff:          (titel (alexandria:ensure-gethash "VTI" (alexandria:ensure-gethash "videoJsonPlayer" jsn))))
       (list url (apo2bar (blanko2underbar titel)))))
   
  +	;; QUALITY = LQ, MQ, EQ, SQ where LQ < MQ < EQ < SQ
  +	;; 		SQ = 720p 1280x720 bitrate 2200 (HD)
  +	;; 		EQ = 400p 720x406 bitrate 1500
  +	;; 		MQ = 400p 720x406 bitrate 800
  +	;; 		LQ = 220p 320x200 bitrate 300
  +
   (defun arte-info (nm)
     (get-url-y-titel (get-json nm)))
   
  
positive.code: 
  (defun arte-bash (nm)
    (let* ((res (arte-info nm))
           (cmd (concatenate 'string "wget" " -q " (car res)
                             " -O " (concatenate 'string (cadr res)
                                                 "mp4"))))
      (trivial-shell:shell-command cmd)))
  
  
  (arte-info "042374-000")
  
negative.code: #!/usr/local/bin/sbcl --noinform 
  
  (ql:quickload "yason") ;json
  (ql:quickload "drakma") ;curl
  (setf drakma:*header-stream* nil)
  