(defpackage #:snippets/real-programmers
  (:documentation "
Real programmers can write assembly code in any language.   :-)
             -- Larry Wall in  <8571@jpl-devvax.JPL.NASA.GOV>
")
  (:use #:cl))

(in-package #:snippets/real-programmers)

#+real-programmers
(prog (eax ebx ecx)
   (setq eax 1)
   (setq ebx 1)
   (setq ecx 10)
 loop
   (setq eax (+ eax ebx))
   (print ebx)
   (rotatef ebx eax)
   (setq ecx (- ecx 1))
   (unless (zerop ecx)
     (go loop))
 done)