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