1 1 500{0 1 1 3 index{2 copy 1 sub lt{[exit}if 2 index 1 index mod{pop 0}repeat
add}for[ne{=}if}for