#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
# 19nov22abu

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

(stack 1024)

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