1 {succ dup =} loop