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