(adjust-hsl 
.(vmod 
..(square 
...(adjust-hsl 
....(polar vplasma) 
....(min-component 
.....(offset 
......(y 
.......(rgb-from-hsl 
........(average splasma [-2.5113 1.6729 -1.0906]))) [-0.7011 2.9492])))) 
..(vfloor 
...(length pos))) 
.(gradient 
..(vcos 
...(v* 
....(red-from-hsl 
.....(hsl-from-rgb 0.9795)) 
....(polar 
.....(vfloor 
......(checker 
.......(square 
........(hue-from-rgb pos)) 
.......(t 
........(polar vsplasma)))))))))