#!perl -lpaF sub f{$r+=print map+($r<2?$_<5^$r:$_%5^$r-2)?'<->':' | ',@F}$n=s/./===/g;print;f f;print map--$n%4?'===':'=*=',@F;f f f f f
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page