[.runstdin]{count 3 eq{3 1 roll dup 2 le{12 add exch 1 sub exch}if 13 mul 8 add 5 idiv 1 index 4 idiv dup 25 idiv dup 4 idiv sub sub add add add 7 mod =}if}forall