test2 :: Int -> Seq Int
test2 n = B.toSeq (B.singleton n `mappend` B.singleton n `mappend` B.singleton n)
test2 :: Int -> Seq Int
test2 n = B.toSeq (B.singleton n `mappend` B.singleton n `mappend` B.singleton n)
test2 n = B.toSeq (B.singleton n `mappend` B.singleton n `mappend` B.singleton n)