tree :: Parser SgfTree
tree = makeSgfTree <$> (char '(' *> many1 node)
                   <*> (many tree <* char ')')
tree :: Parser SgfTree
tree = makeSgfTree <$> (char '(' *> many1 node)
                   <*> (many tree <* char ')')
tree = makeSgfTree <$> (char '(' *> many1 node)
                   <*> (many tree <* char ')')