View source with formatted comments or as raw
    1process(G) :-
    2    call(G). 
    3process(G) :-
    4    exception(G),
    5    not(call(G)).
    6
    7exception(test). 
    8
    9?- process(test).