(display"##")(do[(s(read-line)(string-copy s 1))]((#/^$/s))(display(if(or(#0=string>?"  !"s)(#0# s"# #"))" ""#")))