read r set -- `seq -$r $r` for y;do for x;do printf $[x*x+y*y>r*r];done echo done|tr 01 \*\