                            c  s (com.tiemens.secretshare.engine.SecretShare$PublicInfo.
                                  (:total header) (:quorum header)
                                  ((get-prime (:prime header)))
-                                 (:description header))
-                           ))
+                                 (:description header))))
                (inc c))
         ;; return
-        (.getSecret (.combine (shamir-set-header header) res))
-        ))
-    )
-  )
+        (.getSecret (.combine (shamir-set-header header) res))))))

        header (shamir-get-header (first si))
        shares (shamir-get-shares si)]

    {
     :header header
     :shares (map biginteger shares)
     }
    )
  )

(defn shamir-combine [secret]
  {:pre [(contains? secret :header)
         (contains? secret :shares)
         (coll? (:shares secret))]
   :post [(integer? %)]}
  "Takes a secret (header and collection of integers) and returns the
  unlocked big integer"

  (let [header (:header secret)
        shares (:shares secret)]

              (prime4096) 'prime4096
              (str "UNKNOWN"))

     :description (.getDescription pi)}))

(defn shamir-get-shares
  "Takes Tiemen's share and extract a collection of shares"
  [si]
  (map (fn [_] (.getShare _)) si))

(defn shamir-split
