#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
# 01may18abu

(load "@lib/misc.l" "@lib/vip.l")

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

# vi:et:ts=3:sw=3
