a:=File standardInput readLines
write(c:="#"repeated(4+b:=a map(size)max),"
",d:="# "..(" "repeated(b)).." #
")
a map(v,write("# ",v alignLeft(b)," #
"))
writeln(d,c)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).