ghc/tests/codeGen/should_run/cg006.hs

   1 main = print (length thirteen_ones)
   2      where
   3         thirteen_ones   = take (13::Int) ones
   4
   5         ones :: [Int]
   6         ones            = 1 : ones