character*3 code3(23),A
	character*1 code1(23),B(60)
	data code1 /'A','V','L','I','P','F','W',
     . 'M','G','S','T','C','Y',
     . 'N','Q','D','E','K','R','H','B','Z','X'/
	data code3 /'ALA','VAL','LEU','ILE','PRO',
     . 'PHE','TRP','MET','GLY','SER','THR','CYS',
     . 'TYR','ASN','GLN','ASP','GLU','LYS','ARG',
     . 'HIS','ASX','GLX','XXX'/

C	do 40 i=1,23
C40	write(6,*) code1(i),' ',code3(i)
	
50	do 90 i=1,60
	read(5,51,err=100) a
51	FORMAT(A3)
	do 90 j=1,23
	if (a.eq.code3(j)) b(i)=code1(j)
	 
90	continue
	WRITE(6,*) (b(i),i=1,60)
	goto 50
100	n=i-1
	WRITE(6,*) (b(i),i=1,n)
	end