(index ("make-blowfish-encryptor" 0) ("make-blowfish-decryptor" 85))
(def (sig (procedure "(make-blowfish-encryptor key)" (id make-blowfish-encryptor))))
(def (sig (procedure "(make-blowfish-decryptor key)" (id make-blowfish-decryptor))) (p (tt "key") " blob minimal length 4, maximum 56 bytes.") (p "Returns one argument procedure, accept input blob and produce encrypted/decrypted output blob of same size. Input data blob should be aligned on 64 bit boundary."))
