% Adapted from Logtalk eddbali_atom_length_2_08. Modified for Eyepl's harness.
% See test/conformance/THIRD_PARTY.md.
%% goal: atom_length(atom, -4)