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

BEGIN TAXA;
      dimensions ntax=8;
      taxlabels A B C D E F G H;  
END;

BEGIN CHARACTERS;
      dimensions nchar=6;
      format interleave datatype=protein missing=? gap=-;
      charlabels one two three four five six;
      matrix
A     W I T
B     W I T
C     W I T
D     W I T
E     W I T
F     W I T
G     W I T
H     W I T

A     H - B
B     H - A
C     H - D
D     H - C
E     H - F
F     H - E
G     H - H
H     H - G;
END;

BEGIN TREES;
       tree basic_bush = (((A:1,B:1):1,(C:1,D:1):1):1,((E:1,F:1):1,(G:1,H:1):1):1);
END;