   (fn?
     (macroexpand-1
       (def-pushdsl
-        (remember-calc [] #(list 1 2 3 5 8) :as :fibs)
+        (calculate [] #(list 1 2 3 5 8) :as :fibs)
         (replace-stack :integer :fibs)))) => true)
 
 ;; integer_add

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

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

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