isDicom ::
  Foldable f =>
  f (Char, Char, Char, Char)
  -> Bool
isDicom =
  any (\(c1, c2, c3, c4) -> [c1, c2, c3, c4] == "DICM")
isDicom ::
  Foldable f =>
  f (Char, Char, Char, Char)
  -> Bool
isDicom =
  any (\(c1, c2, c3, c4) -> [c1, c2, c3, c4] == "DICM")
isDicom =
  any (\(c1, c2, c3, c4) -> [c1, c2, c3, c4] == "DICM")