t= r / 100.
x= t sin * 4 + 5 $floor.
y= (t + p) sin * 4 + 5 $floor.
z= (t - p) sin * 4 + 5 $floor.
c= x*100 + y*10 + z.
(self white color: c) text: a str sw: b.
d= b at: 0.
z = vec new.
if( b len ==1 )then(
z ap: (a,)
) else(
for(i:100) do(
r= a - i*d.
if(r >=0) then(
for(e:
se ch: r with: b tl
) do(
z ap: ((i,) cat: e)
)
)
)
).
z