stream-fusion-0.1.2.5: tests/Examples/ConcatMap.hs

module M where
import Char

import Data.List.Stream as L

foo :: [Char] -> [Char]
foo xs = (L.concatMap (L.replicate 10000)) ( map toUpper xs)