﻿`` P1 := Range(2) shr 0 band 1 = 0;
ForEach(p1:P1, If(p1,  1 ))
ForEach(p1:P1, If(p1, "A"))
ForEach(p1:P1, If(p1,  1,   2 ))
ForEach(p1:P1, If(p1, "A", "B"))

`` P1 := Range(4) shr 1 band 1 = 0;
`` P2 := Range(4) shr 0 band 1 = 0;
ForEach(p1:P1, p2:P2, If(p1,  1 , p2,  2 ))
ForEach(p1:P1, p2:P2, If(p1, "A", p2, "B"))
ForEach(p1:P1, p2:P2, If(p1,  1 , p2,  2 ,  3 ))
ForEach(p1:P1, p2:P2, If(p1, "A", p2, "B", "C"))

`` P1 := Range(8) shr 2 band 1 = 0;
`` P2 := Range(8) shr 1 band 1 = 0;
`` P3 := Range(8) shr 0 band 1 = 0;
ForEach(p1:P1, p2:P2, p3:P3, If(p1,  1 , p2,  2 , p3,  3 ))
ForEach(p1:P1, p2:P2, p3:P3, If(p1, "A", p2, "B", p3, "C"))
ForEach(p1:P1, p2:P2, p3:P3, If(p1,  1 , p2,  2 , p3,  3 ,  4 ))
ForEach(p1:P1, p2:P2, p3:P3, If(p1, "A", p2, "B", p3, "C", "D"))
