END{for(;501>++i;)print s+=and(i,-i)}