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