@@ -19,6 +19,14 @@ lazy_bytestring k s = do
1919 let t = TL.replicate (fromIntegral k) (TL.pack s)
2020 BL.putStr (TL.encodeUtf8 t)
2121
22+strict_bytestring_ k s = do
23+ let t = T.replicate k (T.pack s)
24+ B.putStr (T.encodeUtf8' t)
25+
26+lazy_bytestring_ k s = do
27+ let t = TL.replicate (fromIntegral k) (TL.pack s)
28+ BL.putStr (TL.encodeUtf8' t)
29+
2230strict_io k s = do
2331 let t = T.replicate k (T.pack s)
2432 hSetEncoding stdout utf8
@@ -48,6 +56,8 @@ main = do
4856 case kind of
4957 "strict" -> strict_bytestring k str
5058 "lazy" -> lazy_bytestring k str
59+ "strict_" -> strict_bytestring_ k str
60+ "lazy_" -> lazy_bytestring_ k str
5161 "strict_io" -> strict_io k str
5262 "lazy_io" -> lazy_io k str
5363 "string" -> string k str