repeat 401[make " modulo # 3 pr(#+:-1)*(if :>0 1 2)]bye