sub f{/ /,push@{$`},$'+!push@{$'+0},$`for<>;my($a,$j,$p)=@_;$a&=$_-$p?f(1,$_,$j):1for@$j;$\+=$a;!$a}f!!<>,1;print