subroutinestash_htmlprivate

subroutine stash_html(t, html, placeholder)
    type(tree_t), intent(inout) :: t                            !! the conversion
    character(len=*), intent(in) :: html                        !! the HTML
    character(len=:), allocatable, intent(out) :: placeholder   !! what stands for it
    character(len=12) :: number

    call push(t%stash, html)
    number = int_text(size(t%stash))
    placeholder = STX//trim(number)//ETX
end subroutine stash_html