$<.chars{|c|$*<<(c[/\d/]?[c*c.hex]:[(a,b=$*.pop 2 a+['.'*i=a[0].size]*49).zip(b).map{|s,t|D=s+t||='.'*J=b[0].size}-[D],[c*i]*J,(a+b).map{|s|(s+D)[0,J