nwNode :: Parser (Tree T.Text)
nwNode = do {oParen
              ; children <- nwNode `sepBy` comma
              ; cParen
              ; label <- option "" identifier 
              ; length <- option () (colon >> number)
              ; return $ Node (T.pack label) children
            }
         <|> nwLeaf
nwNode :: Parser (Tree T.Text)
nwNode = do {oParen
              ; children <- nwNode `sepBy` comma
              ; cParen
              ; label <- option "" identifier 
              ; length <- option () (colon >> number)
              ; return $ Node (T.pack label) children
            }
         <|> nwLeaf
nwNode = do {oParen
              ; children <- nwNode `sepBy` comma
              ; cParen
              ; label <- option "" identifier 
              ; length <- option () (colon >> number)
              ; return $ Node (T.pack label) children
            }
         <|> nwLeaf