#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
# randcap: filter to randomly capitalize 20% of the letters

(in NIL
   (while (char)
      (let C @
         (prin (if (=0 (rand 0 4)) (uppc C) C)) ) ) )

(bye)