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