@a=<>=~/./g;for$i(0..7){$r.=$i==2?($z++-$#a)%4?'===':'=*=':$i<2&&$_>4^$i||$i>2&&$_%5==$i-3?' | ':'<->'for@a;$r.=$/}print$s='==='x@a.$/,$r.$s
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page