Use intercalate instead of explicit foldl