    sub print_content_model {
        my($self) = shift;
        local($_) = shift;
        local(*FILE) = shift;

        my(@cm) = $self->format_content_model2($_);
        foreach $_ (@cm) {
            print FILE $self->make_links($_, 1, 1), "\n";
        }
    }