while(0<1)println{var h,k,i=0
i=1
for(c<-readLine;b=c%26){if(b<1)h=i
if(b==3)k=i
i=Seq(1,i*2-b%4)(b%5/4)}
h+" "+k+" "+i/2}