fson_string_destroy Subroutine

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

    if (associated(this % next)) then
       call fson_string_destroy(this % next)
    end if

    nullify (this % next)
    nullify (this)
  end subroutine fson_string_destroy