anchor.diff:      (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*
  -                        ))
  +    (sb-ext:run-program "/usr/local/bin/wget" wget-cmd :wait nil)))
   
   ;; heap exhausted faulty
   ;; (defun wget (url output-name)
  
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*))
  
  