Question on PLEAC hashes example

[Arie van Wingerden]

Hi Alex,

This example (in "Traversing a Hash"):

   #-----------------------------
   # download the following standalone program
   #!/usr/bin/picolisp /usr/lib/picolisp/lib.l

   (load "@lib/misc.l")

   (in (opt)
      (until (eof)
         (when (match '(~(chop "From: ") @From) (line))
            (accu 'From @From 1) ) ) )

   (for Person (sort From)
      (prinl (car Person) ": " (cdr Person)) )

   (bye)

again has no input file given.
Shall I skip this example, or do you have the original input?

Thx,
   Arie