(saturation-from-rgb 
.(sigmoid 
..(vmin 
...(v- 
....(vfloor 
.....(vfrac 
......(min-component 
.......(min-component [-0.3548 -2.827 1.8065])))) 
....(blue-from-hsl 
.....(t [1.7719 2.2012 1.5005]))) 
...(v- [-0.0548 0.7465 1.7879] 
....(vdivide 
.....(v- 
......(x 
.......(x 
........(rgb-from-hsl [1.7377 -0.8595 2.0469]))) 
......(vcos 
.......(x [-2.4364 -1.0369 0.4]))) 
.....(vabs 
......(vcos 
.......(sigmoid pos))))))))