(vdivide 
.(t 
..(y 
...(rotate 
....(red-from-hsl 
.....(height 
......(lightness-from-rgb 
.......(hsl-from-rgb 
........(t [-0.2323 1.8604]))))) 0.5816))) 
.(lerp 
..(radius 
...(vfloor 
....(sigmoid 
.....(normalize pos)))) 
..(lightness-from-rgb 
...(vsin 
....(y 
.....(offset 
......(min-component vnoise) clouds)))) 
..(sigmoid 
...(scale 
....(vsin 
.....(vabs 
......(square [2.1372 2.1859 1.0211]))) 
....(min-component -1.3243)))))