P10

(load "p09.l")

(de encode (Lst)
   (mapcar
      '((X) (list (length X) (car X)))
      (consecDups Lst) ) )

http://picolisp.com/wiki/?99p10

10jul10

abu