$c=*1..gets.to_i;$/=' ';$<.map{|a|c=[c-c[a.to_i-1]]+c};p c[0]