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)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).