ghc/tests/codeGen/cg009.hs

   1 main = print (length take_list)
   2  where
   3     take_list :: [Int]
   4     take_list = takeWhile (\ x -> x < 6) given_list
   5
   6     given_list :: [Int]
   7     given_list = [1,2,3,4,5,6,7,8,9]