The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#NEXUS
[Features tested: Transpose, Interleave, StatesFormat]

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

BEGIN CHARACTERS;
	dimensions nchar=59;
	format
		datatype=protein
		missing=?
		gap=-
		[Transpose - remove the brackets when this feature is supported]
		Interleave
		StatesFormat=StatesPresent
		;
	
	matrix
		A	-MQVADISLQG--DAKKGANLFKTRCAQCHTL
		B	-------MAGG--DIKKGANLFKTRCAQCHTV
		C	-MG----FSAG--DLKKGEKLFTTRCAQCHTL
		D	-MG--DVEKGKKIFVQKCAQCHTVEKGGKHKT
		
		A	KAGEGNKI-----------GPELHG-?
		B	EKDGGNKI-----------GPALHG--
		C	KEGEGNKV-----------GPALHG--
		D	------?----GPNLHG--LFGRKTGQ
		;
END;

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