% Adapted from Logtalk sics_current_input_1_02. Modified for Eyepl's harness.
% See test/conformance/THIRD_PARTY.md.
%% goal: current_input(foo)