m=map
b i|i>80=i-87|let=i-64
a%b=q$mod(a-b)3
q 2=6
q i=3-3*i
o#p=1+(mod(o+p)3)
y[o,_,p]=v[o,0,o#p]
v[x,_,z]=z+x%z
main=interact$show.((,).(sum.m v)<*>(sum.m y)).m(m(b.fromEnum)).lines