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 'OTU C' D E F G H;
END;

BEGIN CHARACTERS;
      dimensions nchar=5;
      format datatype=protein missing=? gap=-;
      charlabels One Two 'Char 3' Four Five;
      matrix
A     --ONE
B     --ONE
'OTU C'     TWO--
D     THREE
E     F-OUR
F     FIVE-
G     SIX--
H     SEVEN;
END;

BEGIN TREES;
       tree 'the ladder tree' =
       (((((((A:1,B:1):1,'OTU C':2):1,D:3):1,E:4):1,F:5):1,G:6):1,H:7);
END;