diff --git a/Encoding.hs b/Encoding.hs
index ae9529b..f4f9110 100644
--- a/Encoding.hs
+++ b/Encoding.hs
@@ -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