1 1 1000{false 1 index 4 string cvs{49 sub 3 mod 2 eq{(Clap)print true or}if}forall{/}if =}for