(port-map(^z((^n(map(^i(print(string-join(map(^j #"~(if(= i j)(*(- n i)i)0)")(iota n)))))(iota n 1)))(+(*(exact z)2)1)))read)