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