     (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)
+    (put-onto :float :dup-me)
     ))
 
 (fact "that float-yankduper thing actually does the thing"

      'consume-stack {(second step) 0}
      'consume-top-of {(second step) 1}
      'count-of {(second step) 0}
      'place {(second step) 0}
      'remember-nth {(second step) 1}
      'remember-stack {(second step) 0}
      'remember-top {(second step) 1}

      #(if (zero? %1)
          (list)
          (list %2 %3 :code_quote %4 :code_do*range)) :as :continuation)
    (put-onto :exec :continuation)
    ))


