stripBBCode = liftM2 (<>) (stripTags '[' ']' (== "quote")) A.takeText
stripBBCode = liftM2 (<>) (stripTags '[' ']' (== "quote")) A.takeText
stripBBCode = liftM2 (<>) (stripTags '[' ']' (== "quote")) A.takeText