The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#NEXUS

BEGIN TAXA;
	dimensions ntax=4;
	taxlabels A B C D;  
END;

BEGIN CHARACTERS;
	dimensions nchar=59;
	format
		datatype=protein
		missing=?
		gap=-
		;
	
	matrix
		A	-MQVADISLQG--DAKKGANLFKTRCAQCHTLKAGEGNKI-----------GPELHG-?
		B	-------MAGG--DIKKGANLFKTRCAQCHTVEKDGGNKI-----------GPALHG--
		C	-MG----FSAG--DLKKGEKLFTTRCAQCHTLKEGEGNKV-----------GPALHG--
		D	-MG--DVEKGKKIFVQKCAQCHTVEKGGKHKT------?----GPNLHG--LFGRKTGQ
		;
END;

BEGIN TREES;
	tree 'basic bush' = ((A:1,B:1):1,(C:1,D:1):1);
END;