         header (shamir-get-header (first si))
         shares (shamir-get-shares si)]
 
-    {
-     :header header
-     :shares (map biginteger shares)
-     }
-    )
-  )
+    {:header header
+     :shares (map biginteger shares)}))
 
-(defn shamir-combine [secret]
+(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? %)]}
-  "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 [si]
  "Takes Tiemen's share and extract a collection of shares"
  (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))))))
