len [] = 0
len (x:xs) = 1 + len xs

lpf = sum . map (const 1)

llw xs = foldl (.) id (map (const (+1)) xs) 0

test = [1..100]