myLength :: [a] -> Integer

myLength = foldl (\x _ -> x+1) 0