base64array :: UArray Word8 Char
base64array = array (0,pad) $ zip [0..pad] base64
base64array :: UArray Word8 Char
base64array = array (0,pad) $ zip [0..pad] base64
base64array = array (0,pad) $ zip [0..pad] base64