% Adapted from Logtalk sics_current_output_1_02. Modified for EyeProlog's harness.
% See test/conformance/THIRD_PARTY.md.
%% ?- current_output(foo).