END{for(FS=_;$0++<5e3;)if(4~$1+$2+$3+$4)print$0+2e3}