(blue-from-hsl 
.(vmax 
..(hsl-from-rgb pos) 
..(polar 
...(adjust-hsl 
....(vdivide 
.....(vcos 
......(vmod 
.......(polar 
........(adjust-hsl 
.........(v+ 
..........(vcos 
...........(vmod [-1.5989 1.3204 0.1847] 
............(x [-2.9985 -0.1661]))) vnoise) 
.........(vconcat pos 
..........(vround 
...........(square 
............(vabs 
.............(vconcat [-2.161 2.5841 -1.2449 -0.9058] noise))))))) 
.......(x [-2.9985 -0.1661]))) vnoise) 
....(v+ pos 
.....(vround 
......(square 
.......(vabs 
........(vconcat [-2.161 2.5841 -1.2449 -0.9058] noise)))))))))