@ -105,7 +105,7 @@ instance Encode a => Encode [a] where
_ -> fail "Unexpected end of stream"
sencode [] = [T0]
sencode [x] = T1:sencode x
sencode xs = (sencode $ length xs - 2) ++ concat (map sencode xs)
sencode xs = T2:T2:(sencode $ length xs - 2) ++ concat (map sencode xs)
instance Encode Int where
sdecode = do