path: root/testsuite/tests/codeGen/should_run/cgrun006.hs

main = print (length thirteen_ones)
     where
	thirteen_ones	= take (13::Int) ones

	ones :: [Int]
	ones		= 1 : ones