let p,r=print_char,read_int();;for y= -r to r do for x= -r to r do p(if x*x+y*y>r*r then ' 'else '*')done;p '
'done;;