Playing around with hashing

hashing.pact

(module hash MODULE_ADMIN
  "A smart contract to greet the world."

  (defcap MODULE_ADMIN () true)

  (defun revcat (a b)
   (+ b a)
  )
  (defun phash:string (str:string)
   (let* ((h (hash str))
          (hint (str-to-int 64 h))
          (hhex (int-to-str 16 hint))
          (numpad (- 64 (length hhex)))
          (padded (fold (revcat) hhex (make-list numpad "0")))
         )
     padded))
)