(vpow 
.(hsl-from-rgb 
..(max-component 
...(hsl-from-rgb 
....(adjust-hue 
.....(adjust-hue pos 
......(sigmoid 
.......(polar pos))) 
.....(alpha 
......(lightness-from-rgb velvet)))))) 
.(adjust-hue 
..(red-from-hsl 
...(t 
....(blue-from-hsl 
.....(average [-0.5252 1.9513 2.2412 -2.3019] wood)))) 
..(vpow 
...(theta 
....(vfrac 
.....(vsin 
......(y 
.......(vdivide pos 
........(min-component [-0.755 1.194 1.9937])))))) 
...(vconcat [-2.6832 1.3111 -1.3212 -1.0942] 
....(vdivide 
.....(max-component 
......(vfloor 
.......(adjust-hsl 
........(theta [2.5324 -0.57 -1.2671]) [2.2882 -1.8643 -0.3265 0.5791]))) pos)))))