{ ************************************************************************* } { MAYA, ACM'95, majdnem hib tlan } var has: array[0..18] of string[10]; tzs: array[0..19] of string; tz: array[0..18980] of record d,m,y: byte; end; q1,i,n,m,tzy,tzm,tzd,m1: longint; nap,hay,ham,had: longint; j: integer; tzms,s,sb: string; begin has[0]:='pop'; has[1]:='no'; has[2]:='zip'; has[3]:='zotz'; has[4]:='tzec'; has[5]:='xul'; has[6]:='yoxkin'; has[7]:='mol'; has[8]:='chen'; has[9]:='yax'; has[10]:='zac'; has[11]:='ceh'; has[12]:='max'; has[13]:='kankin'; has[14]:='muan'; has[15]:='pax'; has[16]:='koyab'; has[17]:='cumhu'; tzs[0]:='imix'; tzs[1]:='ik'; tzs[2]:='akbal'; tzs[3]:='kan'; tzs[4]:='chicchan'; tzs[5]:='cimi'; tzs[6]:='manik'; tzs[7]:='lamat'; tzs[8]:='muluk'; tzs[9]:='ok'; tzs[10]:='chuen'; tzs[11]:='eb'; tzs[12]:='ben'; tzs[13]:='ix'; tzs[14]:='mem'; tzs[15]:='cib'; tzs[16]:='caban'; tzs[17]:='eznab'; tzs[18]:='canac'; tzs[19]:='ahau'; i:=0; while i<18980 do begin tz[i].d:=i mod 13+1; tz[i].m:=i mod 20; tz[i].y:=i div 260; Inc(i); end; Assign(input,'maya.in'); Reset(input); Assign(output,'maya.out'); Rewrite(output); ReadLn(n); For m:=1 to n do begin ReadLn(s); q1:=pos(' ',s); sb:=Copy(s,1,q1-2); Val(sb,had,j); q1:=pos(' ',(Copy(s,q1+1,255)))+q1; sb:=Copy(s,q1+1,255); Val(sb,hay,j); sb:=Copy(s,pos(' ',s)+1,q1-pos(' ',s)-1); For m1:=0 to 17 do if sb=has[m1] then ham:=m1; tzy:=hay div 52*73+hay mod 52; nap:=hay*365+ham*20+had; tzy:=nap div 260; nap:=nap mod 18980; tzd:=tz[nap].d; tzms:=tzs[tz[nap].m]; WriteLn(tzd,' ',tzms,' ',tzy); End; End.