xrefsForTag :: ByteString -> [Records] -> [ByteString]
xrefsForTag bs rs = do
    (viewTX bs -> Just (_,x)) <- childrenBi rs
    return x
xrefsForTag :: ByteString -> [Records] -> [ByteString]
xrefsForTag bs rs = do
    (viewTX bs -> Just (_,x)) <- childrenBi rs
    return x
xrefsForTag bs rs = do
    (viewTX bs -> Just (_,x)) <- childrenBi rs
    return x