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