say (2,2,(*+*)%500*2...*)[($_=get)%600+($_>3)*600]-$_%%2