Update on current action
makeOrderedLeafList :: [(Char, Int)] -> [CodeTree]
Simplify title