listP' :: Parser a -> Parser [a]
listP' p = brackets $ sepBy p $ spaced comma

data Tree a b = No
listP' :: Parser a -> Parser [a]
listP' p = brackets $ sepBy p $ spaced comma
listP' p = brackets $ sepBy p $ spaced comma