string_clear Subroutine

  recursive subroutine string_clear(this)
    type(fson_string), pointer :: this

    if (associated(this % next)) then
       call string_clear(this % next)
       deallocate(this % next)
       nullify (this % next)
    end if

    this % index = 0

  end subroutine string_clear