%
% stack: empty [ tag N mark ] . . .
%
% assign the mark image to an ordinal used for showing/masking marks
%
{
 isnull ?
 exch oflist &".bmp"
 exch Tree.!Marks
} loop
pop