(Seq.fill(2)(Seq(""))/:readLine){(z,c)=>var i,j=z(1)(0)size;j=z(0)(0)size;Seq(z(1)zipAll(z(0),"."*i,"."*j)map(t=>t._1+t._2),Seq("."*(c-48)),Seq.fill(j)((""+c)*i),z(1)++z(0)map(s=>s+"."*(i+j-s.size*2)))(c/48+c/124)+:z.drop(Seq(2,0,2)(c/48))}(0)map println
Note that non-ascii characters in the above source code will be escaped (such as \x9f).