               (prime4096) 'prime4096
               (str "UNKNOWN"))
 
-     :description (.getDescription pi)
-     })
-  )
+     :description (.getDescription pi)}))
 
-(defn shamir-get-shares [si]
+(defn shamir-get-shares
   "Takes Tiemen's share and extract a collection of shares"
+  [si]
   (map (fn [_] (.getShare _)) si))
 
 (defn shamir-split

                           c  s (com.tiemens.secretshare.engine.SecretShare$PublicInfo.
                                 (:total header) (:quorum header)
                                 ((get-prime (:prime header)))
                                 (:description header))
                           ))
               (inc c))
        ;; return
        (.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
  "Takes a secret (header and collection of integers) and returns the
  unlocked big integer"
  [secret]
  {:pre [(contains? secret :header)
         (contains? secret :shares)
         (coll? (:shares secret))]
   :post [(integer? %)]}

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