%include "INC:UTIL.IMP"
%include "inc:fs.imp"
%include "inc:fsutil.imp"
%include "inc:wild.imp"
%begin

%record(cellfm)%name dl,d
%integer n=0,m=0

  dl == dirlist(cliparam)
  d == dl
  n = n+1 %and d == d_link %while d##nil
  %while dl##nil %cycle
    m = m+1; write(m,3); write(n,3); spaces(2)
    printstring(dl_datum); newline
    dl == dl_link
    n = n-1
  %repeat

%endofprogram