$%=($\+=$%)-$%for($\=1)..<>;print