%
% stack: xact
%

*vendings
"tackmkam" log)(
<

|Single
 "TacRv.html" ofsrc read
 *tackmman

> not
{
 empty
} if
second
"tsubmk" log)(
!Xact
%
% stack: xact tacyh
%
*tackmkaf
%
% stack: xact
%