64   radix  :: Int -> e -> Int
71   radix 0 e = e .&. 255  function
72   radix i e
83   radix _ e = 255 .&. fromIntegral e `xor` 128  function
91   radix 0 e = fromIntegral (e .&. 255)  function
92   radix 1 e = fromIntegral (((e `xor` minBound) `shiftR` 8) .&. 255)  function
100   radix 0 e = fromIntegral (e .&. 255)  function
101   radix 1 e = fromIntegral ((e `shiftR` 8) .&. 255)  function
102   radix 2 e = fromIntegral ((e `shiftR` 16) .&. 255)  function
103   radix 3 e = fromIntegral (((e `xor` minBound) `shiftR` 24) .&. 255)  function
111   radix 0 e = fromIntegral (e .&. 255)  function
112   radix 1 e = fromIntegral ((e `shiftR` 8) .&. 255)  function
113   radix 2 e = fromIntegral ((e `shiftR` 16) .&. 255)  function
114   radix 3 e = fromIntegral ((e `shiftR` 24) .&. 255)  function
115   radix 4 e = fromIntegral ((e `shiftR` 32) .&. 255)  function
116   radix 5 e = fromIntegral ((e `shiftR` 40) .&. 255)  function
117   radix 6 e = fromIntegral ((e `shiftR` 48) .&. 255)  function
118   radix 7 e = fromIntegral (((e `xor` minBound) `shiftR` 56) .&. 255)  function
126   radix 0 e = fromIntegral (e .&. 255)  function
127   radix i e = fromIntegral ((e `shiftR` (i `shiftL` 3)) .&. 255)  function
135   radix _ = fromIntegral  function
143   radix 0 e = fromIntegral (e .&. 255)  function
144   radix 1 e = fromIntegral ((e `shiftR` 8) .&. 255)  function
152   radix 0 e = fromIntegral (e .&. 255)  function
153   radix 1 e = fromIntegral ((e `shiftR` 8) .&. 255)  function
154   radix 2 e = fromIntegral ((e `shiftR` 16) .&. 255)  function
155   radix 3 e = fromIntegral ((e `shiftR` 24) .&. 255)  function
163   radix 0 e = fromIntegral (e .&. 255)  function
164   radix 1 e = fromIntegral ((e `shiftR` 8) .&. 255)  function
165   radix 2 e = fromIntegral ((e `shiftR` 16) .&. 255)  function
166   radix 3 e = fromIntegral ((e `shiftR` 24) .&. 255)  function
167   radix 4 e = fromIntegral ((e `shiftR` 32) .&. 255)  function
168   radix 5 e = fromIntegral ((e `shiftR` 40) .&. 255)  function
169   radix 6 e = fromIntegral ((e `shiftR` 48) .&. 255)  function
170   radix 7 e = fromIntegral ((e `shiftR` 56) .&. 255)  function
178   radix k ~(i, j) | k < passes j = radix k j  function
179                      | otherwise    = radix (k - passes j) i
185 sort arr = sortBy (passes e) (size e) radix arr