sub verbose_add_content {
  printf "depth: %d adding: ((%s))\n", $depth, $_[1];
  $_[0] .= $_[1]
}