mung, a replacement for mug?

newmug.hoon

:-  %say
|=  [* ~ *]
:-  %noun
=<  ^-  (list @uv)
    %-  turn
    :_  mung
    ^-  (list *)
    :~  0
        42
        [0 0]
        [1 1]
        [[1 2] 1 2]
        [[2 1] 1 2]
        -:post
    ==
|%
++  post  
  ::  arbitrary atom to 31-bit non-zero value
  |=  a=@
  ^-  @
  .+  (end 0 30 a)
++  mux 
  ::  noun merkle hash from arbitrary atom hash
  |=  [noun=* bits=@ hash=$-(@ @)]
  ^-  @
  %-  hash
  ?@  noun  noun
  %+  con  $(noun -.noun)
  %^  lsh  0  bits
  $(noun +.noun)
++  mung
  ::  31-bit non-zero murmur3-32 based merkle hash
  |=  noun=*
  ^-  @
  %^  mux  noun  31
  |=  a=@
  %-  post
  (muk 0xcafe.babe (met 3 a) a)
--