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