findH key xs = if any null res then [] else concat res
    where res = map (H.find key) xs
findH key xs = if any null res then [] else concat res
    where res = map (H.find key) xs
findH key xs = if any null res then [] else concat res
    where res = map (H.find key) xs