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))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).