##
LINE: while (defined($_ = )) {
chomp $_;
@F = split(/:/, $_, 0);
$i ||= 1;
print $i if /^n/;
print $F[1] if not /^u/;
print $/ if /^$/ and $i++;
}
## ##
perl '-F: ' -al0ne '!/^u/&&print qq($F[1] );/^$/&&print$/'