onlyS rgb = Hls.fromHls (h, 0.5, s)
  where (h, l, s) = Hls.toHls rgb
onlyS rgb = Hls.fromHls (h, 0.5, s)
  where (h, l, s) = Hls.toHls rgb
onlyS rgb = Hls.fromHls (h, 0.5, s)
  where (h, l, s) = Hls.toHls rgb