namerw :: Records -> Maybe Records
namerw (viewTV "NAME" -> Just ( B rawName
                              , ((viewMaybeTag2 "GIVN" "SURN") -> ((mg,ms),rs))
                              )) = Just $ Fix (TreeF (T n) rs)
  where
    n = N $ Name rawName (mg >>= value) (ms >>= value)
namerw :: Records -> Maybe Records
namerw (viewTV "NAME" -> Just ( B rawName
                              , ((viewMaybeTag2 "GIVN" "SURN") -> ((mg,ms),rs))
                              )) = Just $ Fix (TreeF (T n) rs)
  where
    n = N $ Name rawName (mg >>= value) (ms >>= value)
namerw (viewTV "NAME" -> Just ( B rawName
                              , ((viewMaybeTag2 "GIVN" "SURN") -> ((mg,ms),rs))
                              )) = Just $ Fix (TreeF (T n) rs)
  where
    n = N $ Name rawName (mg >>= value) (ms >>= value)