@a=1..<>;unshift@a,splice@a,$_-1,1for<>=~/\S+/g;print$a[0]