lengthAtLeast :: [a] -> Int -> Bool
lengthAtLeast = atLength (const True) False
lengthAtLeast :: [a] -> Int -> Bool
lengthAtLeast = atLength (const True) False
lengthAtLeast = atLength (const True) False