Evaluated cinit hello 80 20; map [seq 1 63] {x {set y [expr round(sqrt(1000-pow(($x-32),2))*2)]; cplot hello $x $y x}}; cwipe hello 1