anchor.diff:  ;;;; rewrite mac so it allows autouniq
   ;;;; break apart functions into groups and put them in seperate files
   ;;;;   (ie iteration, higher-order-functions, etc)
  +;;;; figure out how to not have defmemo give a warning
   
   (mac lf (&body rest)
     "Cond but doesn't require parens for each clause"
  
positive.code: (def bestn (n f seq)
    "Finds the first n elements of seq if it was sorted using f"
    (firstn n (sort seq f)))
  
negative.code:   (prog1 (apply #'pr args)
           (terpri)))
  
  
  (def firstn (n xs)
    "Evaluates to the first n elements of the list xs"
    (lf (no n)           xs
  