(setq H NIL)
(for
   Task '(
      (3 . "Clear drains.")
      (4 . "Feed cat.")
      (5 . "Make tea.")
      (1 . "Solve RC tasks.")
      (2 . "Tax Return."))
   (setq H (heap-insert Task H)))

(while H
   (prinl (caar H) ". " (cdar H))
   (setq H (heap-rest H)))

(bye)