Dubstep.hs

module Codewars.Kata.Dubstep where

import Prelude
import Control.Monad (join)
import Data.List
import Data.Text (strip, pack, unpack)
import Text.Parsec

songDecoder :: String -> String
songDecoder = 
  either show (unpack . strip . pack)
    . parse 
        (join <$> many (many1 (try (string "WUB")) *> pure " " <|> fmap pure anyChar))
        ""