$a[<>]=1;push@{/.* /*$'},$_ for<>;for$i((1..@a)x$<){/ /,$a[$_]+=$'*$a[$i]for@$i;$a[$i]*=!@$i}$,=$/;print@a[1..@a-3]