Write a predicate mydecode$/2$ that takes the compressed list as a first parameter and returns the uncompressed list as shown as the second parameter. For example:

mydecode$([],$X$)$ should yield X $=[].$

mydecode$([($a$,1),($b$,2),($c$,3),($d$,2)],$X$)$ should yield X $=[\text{'}$a$\text{'},\text{'}$b$\text{'},\text{'}$b$\text{'},\text{'}$c$\text{'},\text{'}$c$\text{'},\text{'}$c$\text{'},\text{'}$d$\text{'},\text{'}$d$\text{'}].$

mydecode$([($a$,1),($p$,2),($l$,1),($e$,1)],$X$)$ should yield X $=[\text{'}$a$\text{'},\text{'}$p$\text{'},\text{'}$p$\text{'},\text{'}$l$\text{'},\text{'}$e$\text{'}].$

In Prolog please