?- береза это растение?? .

:-op(600, xfx, это).

:-op(600, xfx, это).

% Читать терм завершающийся двумя знаками вопроса
read_term_ending_by_two_question_signs( Codes_QQ, Term_QQ) :-
    remove_question_signs( Codes_QQ, Codes ),
    read_term_from_codes( Codes, Term ),
    Term = X 'это' Н,
    atom_codes( H, Codes),
    length( Codes, Length ),
    Length_QQ is Length + 2,
    sub_atom(H_QQ, '', Length_QQ, '??', H),
    Term_QQ = X 'это' H_QQ.

% Удалить символы вопроса
remove_question_signs( [ ?, ? ],  [] ).
remove_question_signs( [ X | Y ],  Z ) :-
     !, remove_question_signs( [ Y ],  Z ).