#! /usr/bin/perl
#
#  Usage: aesthetic_tree [ tree_file ] > tree
#
use gjonewicklib;
use strict;

my $tree = parse_newick_tree_str( join( ' ', <> ) );
$tree or print STDERR "Usage: aesthetic_tree [ tree_file ] > tree\n" and exit;

writeNewickTree( aesthetic_newick_tree ( $tree ) );

exit;