l=length{a[++i]=$0}i>6{for($80=$0=_;j++<l+80;s=s RS)for(k=0;k++<7;s=s RS)for(m=0;m<80;m++)s=s((c=substr($0a[k]$0,j+m,1))==FS||k-4||m-50?c:"*")}$0=s