 
 (fact "replace-stack replaces the entire stack with the named value from scratch"
   (let [totally-made-up (-> [six-ints {}]
-                            (remember-calc [] #(list 1 2 3 5 8) :as :fibs)
+                            (calculate [] #(list 1 2 3 5 8) :as :fibs)
                             (replace-stack :integer :fibs))]
   (get-stack-from-dslblob totally-made-up :integer) => '(1 2 3 5 8)))
 

  (def-pushdsl
    (consume-top-of :integer :as :int1)
    (consume-top-of :integer :as :int2)
    (remember-calc [:int1 :int2] #(+ %1 %2) :as :sum)
    (place :integer :sum)))

(fact "that int-adder thing actually does the thing"

  (def-pushdsl
    (consume-top-of :integer :as :index)
    (count-of :float :as :how-many)
    (calculate [:index :how-many] #(mod %1 %2) :as :which)
    (remember-nth :float :at :which :as :dup-me)
    (place :float :dup-me)
    ))
