data HuffTree
    = Leaf Char
    | HuffTree |*| HuffTree
    deriving (Eq, Show)

plant :: [(Char,Int)] -> HuffTree
plant [(x,y)] = (Leaf x)
plant ((x,y):xs) = plant xs |*| (Leaf x)