map/ /?@{$n++}=glob:($n%=print map("@{*y=$_;[map{$s=!//;$s+=$y[$_]*$$_[$'+$n]for@n;$s}@n]} ",@n=0..$n-1),$/),<>,0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page