anchor.diff:  
   (defun make-conversion (name tv)
     (format t "Downsampling ~A with sox…~%" name)
  -  (alet (+ "obj/" name "_downsampled_" (downcase (symbol-name tv)) ".wav")
  +  (alet (+ "obj/" name ".downsampled." (downcase (symbol-name tv)) ".wav")
       (sb-ext:run-program "/usr/bin/sox"
  -                        `(,(+ "obj/" name "_filtered.wav")
  +                        `(,(+ "obj/" name ".filtered.wav")
                             "-c" "1"
                             "-b" "16"
                             "-r" ,(princ (/ (pwm-pulse-rate tv)
  
positive.code:                  '("src/audio-player-irq.asm")
                   '("src/audio-player-noirq.asm")))
            ,(+ "src/text_" name ".asm"))
          (+ "obj/" name "_" tv ".prg.vice.txt")))
  
  (defun padding (x n obj)
    (maptimes [identity obj] (- n (length x))))
  
negative.code:   (make-vice-commands cmds "break .stop"))
  
  (defun make-audio-player-prg (name tv)
    (make (+ "obj/" name "." tv ".prg")
          `("bender/vic-20/basic-loader.asm"
            "bender/vic-20/vic.asm"
            "src/main.asm"
  