read n
r=`seq -$n $n`
a=(\  \*)
for i in $r;do b=;for j in $r;do b+="${a[i*i+j*j<=n*n]}";done;echo "$b";done