let rec task2 (compressed: (char * int) list) =
    let rec decompress (part: char * int) =
        if (snd part <= 0) then
            ""
        else
            string(fst part) + (decompress (fst part, (snd part) - 1))
    if (compressed.Length <= 0) then
        ""
    else
        let a::b = compressed
        (decompress a) + (task2 b)