% Adapted from Logtalk sics_sub_atom_5_14. Modified for Eyepl's harness.
% See test/conformance/THIRD_PARTY.md.
%% goal: sub_atom('Banana', -2, 3, 4, _)