1:-module(bitrix24_utils, [
    2             decode_response/2,
    3             remove_json/2
    4         ]).    5
    6decode_response(json(Reply), Result) :-
    7    memberchk(result = json(Result), Reply),!.
    8decode_response(json(Reply), Result) :-
    9    memberchk(result = Result, Reply),
   10    is_list(Result),!.
   11decode_response(json(Reply), Reply).
   12
   13remove_json([], []).
   14remove_json([json(Term)|T], [Term|NewT]) :-
   15    remove_json(T, NewT).
   16remove_json([H|T], [H|NewT]) :-
   17    H \= json(_),
   18    remove_json(T, NewT)