(for x(-(= r(read)))r(for y(- r)r(pr:if(<=(+(* x x)(* y y))(* r r))"*"" "))(prn))