d1,d2,d3 :: Word8 -> Word8 -> Word8
d1 a b = shiftL a 2            .|. shiftR b 4
d1,d2,d3 :: Word8 -> Word8 -> Word8
d1 a b = shiftL a 2            .|. shiftR b 4
d1 a b = shiftL a 2            .|. shiftR b 4