Redirect all messages of the indicated level to the console of the
current thread. This is part of the SSH library as it is notably
practical when connected through SSH. Consider using trace/1 on
some predicate. We catch capture the output using:
?- capture_messages(debug).
?- trace(p/1).