anchor.diff:  ;; ** DONE filename zv datum.
   ;; ** TODO fur shell / clisp, sbcl
   ;; ** TODO Unicode suppport als file-name
  +(defun ASCIIFY (x)
  +  "bypass"
  +  x)
  +(cwd #P"~/Desktop")
   
  -(cwd "/Users/dvnmk/Desktop")
  -
  -;;(load "asciify.lisp")
  -
  +(car)
  
positive.code:                      (concatenate 'string
                                    (apo2bar (blanko2underbar (info "VTI" nivo-0)))
                                    "-" kurz-datum ".mp4")))
           (wget-cmd (list "-c" url "-O" file-name))
           (raw-cmd  (concatenate 'string  "wget -c " url " -O " file-name)))
      (format t "~& ~A" url)
      (format t "~& =>")
      (format t "~& ~A" file-name)
      ;(format t "~& ~A" raw-cmd)
      (sb-ext:run-program "/usr/local/bin/wget" wget-cmd :wait nil)
      ))
  
  (defmacro arte-info-m (nmr6-nmr3) 
  
negative.code: (ql:quickload "yason")
  (ql:quickload "drakma")
  (setf drakma:*header-stream* nil)
  (load #P"~/arte/asciify.lisp")
  
  (defun nmr2json (nmr)
    (let* ((url 
  