for(;Q=readline();print(12-S?+S&&S<12?Q+' AM':Q:Q+' PM'))S=Q[0]+Q[1]