sep =. '","' trim =. }:&}. names =. ([:/:~sep&splitstring&trim&fread) 'p022_names.txt' val =. [: +/ _64 + a.&i. ix =. [:>:[:I.E.&names&< nr =. val*ix problem22 =: +/;nr each names