:- use_module(library(intercept)).
call(Copy,Arg)
?- intercept(send_signal(x), X, Y=X). true. ?- intercept(send_signal(x), X, =(X), Y). Y = x.