: d dup ;
: m .4 * .5 + - ;
: a * - y - abs .1 < x ;
: r / 1 mod 1.96 * .98 - d 0 > 2 * 1 - * .01 + ;
: e t 2.9 r .94 * .03 + ;
: p t 3.7 r .9 * .05 + d t 2.9 * ;
e x - d * t 3.7 r y - d * + sqrt .02 <
p sin m e a .03 < *
p cos m 1 e - a .97 > *
+ + d d