anchor.diff:      (yason:parse vec)))
   
   (defun normalisieren (string)
  -  (flet ((slash2.s (x)
  +  (flet ((slash-2-.s (x)
              (cl-ppcre:regex-replace-all "/" x ".s"))
  -         (apo22bar (x)
  +         (apo-2--2-bar (x)
              (cl-ppcre:regex-replace-all "’" x "-"))
  -         (apo2bar (x)
  +         (apo-2-bar (x)
              (cl-ppcre:regex-replace-all "'" x "-"))
  -         (blanko2underbar (x)
  -           (cl-ppcre:regex-replace-all " " x "_")))
  -    (slash2.s (apo22bar (apo2bar  (blanko2underbar string))))))
  +         (blanko-2-underbar (x)
  +           (cl-ppcre:regex-replace-all " " x "_"))
  +         (colon-2-o (x)
  +           (cl-ppcre:regex-replace-all ":" x "_"))
  +         )
  +    (asciify (colon-2-o (slash-2-.s (apo-2--2-bar (apo-2-bar  (blanko-2-underbar string))))))))
   
   (defun info (key tbl)
     (alexandria:ensure-gethash key tbl))
  
positive.code: (asdf:load-system "yason")
  (asdf:load-system "drakma")
  (asdf:load-system "house")
  (setf drakma:*header-stream* nil)
  (defvar *speicher-dir* #P"~/arte7/")
  
  
negative.code:     (progn
        (setf *tmp* res)
        (format t "~{*~A ~8T~A~%~}" res)
        (with-open-file (out (format nil "~A~A.txt" *speicher-dir* (getf *tmp* :titl))
                         ;(concatenate 'string "~/arte7/" file-name ".txt")
                             :direction :output
                             :if-exists :supersede
                             :external-format :unix)
          (format out "~{*~A ~8T~A~%~}" res))
        )
      t))
  
  (defun arte-nimm (nmr)
    (arte-info nmr)
    (let* ((cmd (format nil "wget -c ~A -O ~A.mp4 --no-verbose -a ~A.txt --tries=4"
                       (getf *tmp* :file)(getf *tmp* :titl) (getf *tmp* :titl)))
          (proz (run-program "/bin/sh" (list "-c" cmd)
                                :wait nil
                                :output *standard-output*
  