7 2 2001{{2{dup 2 sub dup 3 idiv -1 3{2 copy mod idiv pop}for}repeat =only(,)print =}stopped}for