getTags :: ReadP [String]
getTags = do h <- parseTag True
             t <- many $ parseTag False
             return (h:t)
getTags :: ReadP [String]
getTags = do h <- parseTag True
             t <- many $ parseTag False
             return (h:t)
getTags = do h <- parseTag True
             t <- many $ parseTag False
             return (h:t)