stream-fusion-0.1.2.1: tests/Examples/SumReplicate.hs

module FuseTest where

import Data.List as L

foo :: Int -> Int
foo n = L.sum (L.replicate n 1)