 
 (define-registered
   genome_append1_parent1
-  ^{:stack-types [:genome]}
+  ^{:stack-types [:genome :integer]}
   (fn [state]
     (if (not (empty? (:integer state)))
       (let [genome (if (empty? (:genome state))

      (push-item (count (stack-ref :genome 0 state))
                 :integer 
               state))))


(define-registered
  genome_append1_parent2
  ^{:stack-types [:genome :integer]}
  (fn [state]
    (if (not (empty? (:integer state)))
      (let [genome (if (empty? (:genome state))
