(format t"~{~V@{|~7T|
~}~(~{|~6@A|
~}~)+------+
~D chains~}"(case(mod(unix:getpid)7)(4'(11("y ""b yyg")9))(6'(5(r b"g b"ybgrbg yrrbgg rgbgyy brbgyr gbyyrb)2))(t'(13()19))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).