startByte :: UArray Int Int
startByte = listArray (0,7) [1,3,5,9,11,17,27,31]
startByte :: UArray Int Int
startByte = listArray (0,7) [1,3,5,9,11,17,27,31]
startByte = listArray (0,7) [1,3,5,9,11,17,27,31]