nwLeaf :: Parser (Tree T.Text)
nwLeaf = do
    id <- identifier
    length <- option () (colon >> number)
    return $ Node (T.pack id) []
nwLeaf :: Parser (Tree T.Text)
nwLeaf = do
    id <- identifier
    length <- option () (colon >> number)
    return $ Node (T.pack id) []
nwLeaf = do
    id <- identifier
    length <- option () (colon >> number)
    return $ Node (T.pack id) []