let a,b,c="|      |
"," chains","+------+
"let d=a^a^a^a^a;;print_string(d^[|d^a^"|y     |
|b  yyg|
"^c^"9";"|     r|
|     b|
|g    b|
|ybgrbg|
|yrrbgg|
|rgbgyy|
|brbgyr|
|gbyyrb|
"^c^"2";d^a^a^a^c^"19"|].(-Obj.magic(@)mod 3)^b)