a=eval *$<
0while a[p~-$.+=a[~-$.]]