let a,b="(bin)
","(alnum)
"let c,d=b^"normal
","(sym)
";;print_string(a^b^c^d^c^d^c^b^a^d^d^b)