Regex to match list of pairs

\w -> alphabet / underscore / digit  (word-characters)
\d -> digit

Sample input
Set(List((a,2), (b,1), (b,2)), List((a,1)), List((b,1)), List((b,2)), List((a,1), (b,1)), List((a,1), (a,2), (b,1)), List(), List((a,1), (b,1), (b,2)), List((a,1), (a,2), (b,2)), List((a,1), (a,2)), List((a,2), (b,1)), List((a,1), (a,2), (b,1), (b,2)), List((a,2)), List((a,1), (b,2)), List((a,2), (b,2)), List((b,1), (b,2)))
Set(List((a,1)), List((b,1)), List((b,2)), List((a,1), (b,1)), List(), List((a,2), (b,1)), List((a,2)), List((a,1), (b,2)), List((a,2), (b,2)))

Find expression
List(\((\(\w,\d\)(, )*)*\))(, )*

Replace expression
List$1,\n\t

Sample output
Set(List((a,2), (b,1), (b,2)),
    List((a,1)),
    List((b,1)),
    List((b,2)),
    List((a,1), (b,1)),
    List((a,1), (a,2), (b,1)),
    List(),
    List((a,1), (b,1), (b,2)),
    List((a,1), (a,2), (b,2)),
    List((a,1), (a,2)),
    List((a,2), (b,1)),
    List((a,1), (a,2), (b,1), (b,2)),
    List((a,2)),
    List((a,1), (b,2)),
    List((a,2), (b,2)),
    List((b,1), (b,2)),
    )

Set(List((a,1)),
    List((b,1)),
    List((b,2)),
    List((a,1), (b,1)),
    List(),
    List((a,2), (b,1)),
    List((a,2)),
    List((a,1), (b,2)),
    List((a,2), (b,2)),
    )