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