Function find_initial_pos

    ∇ Z←find_initial_pos Color_XYZ;CX;CY;CZ
[1]  ⍝
[2]  ⍝⍝ find the initial position of the cube with colors Color_XYZ
[3]  ⍝
[4]  CX←¯1↑'-',(Color_XYZ∈"RO")/Color_XYZ
[5]  CY←¯1↑'-',(Color_XYZ∈"BG")/Color_XYZ
[6]  CZ←¯1↑'-',(Color_XYZ∈"WY")/Color_XYZ
[7]  Z←''⍴(∧/∆Initial_State=[2]CX,CY,CZ)/⍳27
[8]  →(Z∈⍳27)/0 ◊ 4 ⎕CR RGB ◊ +++
    ∇