RWHCh3.hs

intersperse' :: Char -> [String] -> String
intersperse' _ [] = ""
intersperse' sep (x:xs) = if not (null rest)
                              then x ++ ([sep] ++ rest)
                              else x
                          where rest = intersperse' sep xs