filterSkin :: RGB8 -> RGB8
filterSkin rgb
  | inRange (0.5, 3.0) (l/s) && filterHls (330, 28) (0, 1) (0.2, 1) rgb = rgb
  | otherwise = (0, 0, 0)
  where (h, l, s) = Hls.toHls rgb
filterSkin :: RGB8 -> RGB8
filterSkin rgb
  | inRange (0.5, 3.0) (l/s) && filterHls (330, 28) (0, 1) (0.2, 1) rgb = rgb
  | otherwise = (0, 0, 0)
  where (h, l, s) = Hls.toHls rgb
filterSkin rgb
  | inRange (0.5, 3.0) (l/s) && filterHls (330, 28) (0, 1) (0.2, 1) rgb = rgb
  | otherwise = (0, 0, 0)
  where (h, l, s) = Hls.toHls rgb