main=interact(\x->f$x!!30?x++" chains") 'y'?x="e| r|\n| b|\n|g "++drop 69x++"\n2" 'g'?_="k|y |\n|b yyg|\n+------+\n9" _?_="m+------+\n19" f(a:b)=(['a'..a]>>"| |\n")++b
Note that non-ascii characters in the above source code will be escaped (such as \x9f).