#!/usr/bin/run-lisp-trans ; settrans -a foo ./zero.lisp ; (asdf:operate 'asdf:load-op 'zero-translator)