r:=list(10,30,60)at(Date second&3)
for(x,-r,r,for(y,-r,r,if(x*x+y*y>r*r," ","*")print);"
"print)