open String
let(%),p,a=make,print_endline,read_line()let b=length a+2
let f s=b>7&s=p("|"^b%' '^"|");;p(" "^b%'_'^"
/"^b%' '^"\\
|"^b%' '^"|");f();p("| "^a^" |
|"^b%' '^"|");f();p("\\"^b%'_'^"/")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).