#!/usr/bin/perl
use 5.010;
$_=$t=<>,$i=0;$t=$_,$i++while s/\w+(\
((?R
)(,(?R
))?\
))?/$1/g
,/\w/;@x=$t=~/\w+/gs
;say
"$i:@x"
IyEvdXNyL2Jpbi9wZXJsCnVzZSA1LjAxMDsKJF89JHQ9PD4sJGk9MDskdD0kXywkaSsrd2hpbGUgcy9cdysoXCgoP1IpKCwoP1IpKT9cKSk/LyQxL2csL1x3LztAeD0kdD1+L1x3Ky9ncztzYXkiJGk6QHgi