gets stdin r;set x [expr -$r-1];while {[incr x]<=$r} {set y [expr -$r-1];set s "";while {[incr y]<=$r} {set s $s[expr $x*$x+$y*$y<=$r*$r?{*}:{ }]};puts $s}