print map "$_\n", @{$pm->draw_ascii_tree};