let a="5
9
2
1
5
9"let b=a^"
"let c=b^b^b^b^b^a
;;print_string[|c;c^c^c^c^c^c^c|].(-Obj.magic(@)mod 3)