PicoLisp IPC counter

counting.l

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

(setq Uniq
    (pipe 
        (prog 
            (zero X)
            (loop 
                (pr (list "unique counter" (inc 'X))) ) ) ) )

(if (fork) 
    (for N 3 (wait 1000) (println "parent step #" N (in Uniq (rd))))
    (for N 4 (wait 700) (println "child step #" N (in Uniq (rd)))))

(bye)