sub consensus_to_string {
  my $con = shift;
  my $str;

  for (@$con) {
    if (@$_ > 1) { $str .= "[" . join("", @$_) . "]" }
    else { $str .= $_->[0] }
  }

  return $str;
}