(let*('display,string-size(s(read-line))(l(string-split s" "))(f(rec(f b c d)'"
"(map(rec,@x'"|"'d(let1 k,x(#0=dotimes,@(/(- k 1)2)'b)(if(odd? k)'c)'d))l)'"|
")))'" "(#0#,@(+(*(length l)2),s)'"_")(f"| ""|"" ")'"| "'(string-join l" | ")'" |"(f"_|""_""_"))