f=:+/@:*:@i.@>:
wd"0 f".>0{"1[_2]\;:1!:1[3