intersperse :: a -> [[a]] -> [a]
intersperse sep xs = foldr step [] xs
    where step ele []  = ele ++ []
          step ele acc = ele ++ sep : acc