createB :: [(Key,Weight)] -> B.PriorityQueue Int -> IO [B.Entry Key]
createB []          _ = return []
createB :: [(Key,Weight)] -> B.PriorityQueue Int -> IO [B.Entry Key]
createB []          _ = return []
createB []          _ = return []