base128array :: UArray Word8 Word8
base128array = array (0,255) $ zip [0..255] base128
base128array :: UArray Word8 Word8
base128array = array (0,255) $ zip [0..255] base128
base128array = array (0,255) $ zip [0..255] base128