let p,r=print_char,read_int()let rec($)x y=x< -r&r$(p '
';y-1);p"* ".[min(x*x/(r*r-y*y+1))1];x-1$y;;r$r