data ListItem a = Single a | Multiple Int a deriving (Read)

fromListItem :: ListItem a -> [a]
fromListItem (Single x) = [x]
fromListItem (Multiple n x) = replicate n x

decodeModified :: [ListItem a] -> [a]
decodeModified = concatMap fromListItem