death :: [Records] -> Maybe Death
death rs = S.headMay $ do
    (typed -> Just (D d@(Death _ _))) <- childrenBi rs
    return d
death :: [Records] -> Maybe Death
death rs = S.headMay $ do
    (typed -> Just (D d@(Death _ _))) <- childrenBi rs
    return d
death rs = S.headMay $ do
    (typed -> Just (D d@(Death _ _))) <- childrenBi rs
    return d