list setSize(58)map(list join)do(File standardInput readLines map(i,$,$foreach(j,b,\ :=at(i-j+50)
while(\size/2<i+j,\append(32))
\append(b))))map(do(>""and println))