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