k=1000 a=9*k :rd=:gd*((:r8+:r9+:c0+:ca+:cb+:cc+:cd+:l8+:l9)<a) goto1