#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
# 30sep20abu

(unless *Dbg
   (load "@lib/vip.l") )

(bye
   (if
      (vip~vi  ## [+<pat> | +[<num>]] <file1>  [+[<num>]] <file2> ..
         (make
            (for (L (argv)  L)
               (let S (++ L)
                  (link
                     (if (pre? "+" S)
                        (cons
                           (cond
                              ((= "+" S) T)
                              ((format S) @)
                              (T (cdr (chop S))) )
                           (++ L) )
                        S ) ) ) ) ) )
      0
      1 ) )
