sep :: [a] -> [[a]] -> [a]
sep x xs = intercalate x $ filter (not . null) xs
sep :: [a] -> [[a]] -> [a]
sep x xs = intercalate x $ filter (not . null) xs
sep x xs = intercalate x $ filter (not . null) xs