%% ?- answer(X0).

answer(ok) :- \+ (X is sqrt(-1)).