(index ("string->sha1sum" 0) ("sha1sum" 136))
(def (sig (procedure "(string->sha1sum str)" (id string->sha1sum))) (p "Generates the SHA1 hash for the given string " (tt "str") "."))
(def (sig (procedure "(sha1sum filename)" (id sha1sum))) (p "Generates the SHA1 hash for the file named by " (tt "filename") " (uses " (tt "mmap") ")."))
