name :: [Records] -> Maybe Name
name rs = S.headMay $ do
    (typed -> Just (N n@(Name _ _ _))) <- childrenBi rs
    return n
name :: [Records] -> Maybe Name
name rs = S.headMay $ do
    (typed -> Just (N n@(Name _ _ _))) <- childrenBi rs
    return n
name rs = S.headMay $ do
    (typed -> Just (N n@(Name _ _ _))) <- childrenBi rs
    return n