#! /bin/sh
ulimit -d -S `ulimit -d -H`
ulimit -c -S 0
shwin-b |
  awk 'NR==1 {
		start = gensub("Start: [(]noser[)] -------- ","","g",$0);
		start = gensub("--","","g",start);
		start = gensub("/"," ","g",start);
		next;
	}
	/main: d / {
		lastd = $3;
	}
	{
		lastline = $0;
	}
	END {
		if (lastline == "no win found") {
			if ((lastd < 6) || (lastd >= 85)) {
				printf("d=%d %s\n",lastd,start);
			}
		} else if (lastline ~ / [|] ........ [|] /) {
			s = gensub("--","","g",substr(lastline,27));
			if (length(s) > 94) {
				printf("%s %s\n",substr(lastline,1,11),start);
			}
		} else {
			printf("Weird %s %s\n",lastline,start);
		}
	}'