until[eof?][invoke[pr(if(first ?)*2*(count ?)>reduce "sum ?["Pass]["Fail])]bf rl]bye