Bye, Reiner.

[1] Simplified the code (thanks to JPW): Use natnump, set most
    variables in a let* form instead of using setq.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/