@@ -78,5 +78,5 @@ main = do
7878 b6 <- encodeInt8 6
7979 b7 <- encodeInt8 7
8080 b8 <- encodeInt8 8
81− pure $ singleton b1 <> (singleton b2 <> singleton b3) <> (singleton b4
82− <> singleton b5) <> (singleton b6 <> singleton b7) <> singleton b8
81+ pure $ ((singleton b1 <> singleton b2) <> (singleton b3 <> singleton b4))
82+ <> ((singleton b5 <> singleton b6) <> (singleton b7 <> singleton b8))