%
% stack: [ . . . data ] prefix
%
% [=stackname]
%
{
 [Any?] not ?
 exch [Pop] ^"." ^3 !
} loop
%
% stack: prefix
%
pop