repeat 401[pr #+item 1+modulo # 3(se #-2 0 1)]bye