如何将prolog谓词转换为JSON？

import json

def prolog_to_json(predicate, args):
    json_obj = {}
    json_obj[predicate] = {}

    for arg in args:
        if isinstance(arg, str):
            json_obj[predicate][arg] = arg
        elif isinstance(arg, dict):
            nested_predicate = list(arg.keys())[0]
            nested_args = list(arg.values())[0]
            json_obj[predicate][nested_predicate] = prolog_to_json(nested_predicate, nested_args)

    return json.dumps(json_obj)

# 示例谓词和参数
predicate = "person"
args = ["name", "age", {"address": ["street", "city"]}]

# 转换为JSON
json_str = prolog_to_json(predicate, args)
print(json_str)

{"person": {"name": "name", "age": "age", "address": {"street": "street", "city": "city"}}}