*o=0;$<.bytes{|b|eval'*o='+%W[p(o)&&0 #{o*?*}*1 o;o[b%-3,1]=[] #{o*?+}+0 #{o.map{|x|[x-1,x+1]}*?,}][b/29]};p o