map/ /?@{$n++}=glob:($n%=print map("@{*y=$_;[map{$s=!//;$s+=$y[$_]*$$_[$'+$n]for@n;$s}@n]}
",@n=0..$n-1),$/),<>,0