RosettaCodeData/Task/Priority-queue/Haskell/priority-queue-1.hs

import Data.PQueue.Prio.Min

main = print (toList (fromList [(3, "Clear drains"),(4, "Feed cat"),(5, "Make tea"),(1, "Solve RC tasks"), (2, "Tax return")]))