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