Heap Pirority Queue

Ken: Does anyone knows how to implement heap pirority queue in Tcl-tk?

(Would this be related to a priority queue implemented as a heap?)

Ken: Yes! How do i implement it as a heap