burial :: [Records] -> Maybe Burial
burial rs = S.headMay $ do
    (typed -> Just (Bu b@(Burial _ _))) <- childrenBi rs
    return b
burial :: [Records] -> Maybe Burial
burial rs = S.headMay $ do
    (typed -> Just (Bu b@(Burial _ _))) <- childrenBi rs
    return b
burial rs = S.headMay $ do
    (typed -> Just (Bu b@(Burial _ _))) <- childrenBi rs
    return b