gawk '/Frame / {f=$4}; /AllocateMemory/ {a[f]++; c[f]++; }; /FreeMemory/ {e[f]++; c[f]--; } END { asorti(a,sa); j = length(sa); print "a"; for (i = 1; i <= j; i++) { printf("%s %s\n", sa[i],a[sa[i]]) }; asorti(e,se); j = length(se); print "e"; for (i = 1; i <= j; i++) { printf("%s %s\n", se[i],e[se[i]]) }; print "c"; d=0; asorti(c,sc); j = length(sc); for (i = 1; i <= j; i++) { d+=c[sc[i]]; printf("%s %s:%s\n", sc[i],d,c[sc[i]]) } }' NMS.vk.log > t