open Printf open String let rec f t l?(s=try read_line()with _-> !t;List.map(printf"# %-*s # "t)(l@[""]);!t;exit 0)u=f(max(length s)t)(l@[s])0and(!)t=printf"%s "(make(t+4)'#');;f 0[""]0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).