*o=0;eval %W[p(o);*o=0 *o=#{o*'*'}*1 o[B%-3,1]=p *o=#{o*'+'}+0 o=#{o.map{|x|[x-1,x+1]}*','}][B/29]while B=getc;p o