bakhtiyork

abc = "acdegilmnoprstuw"
pnum = 37

-- Solution 1
reverse_hash1 _ 0 = []
reverse_hash1 x len = (reverse_hash1 x' len') ++ [abc !! m]
  where 
    m = x `mod` pnum
    x' = (x - m) `div` pnum