Control Structure::select / :case / :default

:select (selector) [.fl] {
:case (target)     {arg[.fl]{code}}
:default           {arg[.fl]{code}} }

Commentary Code Result
Commentary :for(1..4[.i]){
  :select(i){
    :case(1){'one'}
    :case(2){'two'}
    :case(3){'three'}
    :default{'???'}
    }
  }%**		 Seq[I966R1C4T:K]:
[1]Seq[I94R1C1T:K]:
*[1]String[I127R1C3:C]one
[2]Seq[I255R1C1T:K]:
*[1]String[I305R1C3:C]two
[3]Seq[I433R1C1T:K]:
*[1]String[I500R1C5:C]three
[4]Seq[I628R1C1T:K]:
*[1]String[I695R1C3:C]???
Commentary 'one''two''three'=>english;
'uno''dos'=>spanish;
:for(english[.word]){
   :select(word){
     :case(english[1]){
        spanish[1]}
     :case(english[2]){
        spanish[2]}
     :default{
        'unknown'} }
}=>x;
'<1>----------------' $;
x $;
'<2>----------------' $;
x %**$;
'<3>----------------' $;
x ,,'; '$;
'<4>----------------' $;
x ,,\$;		 <1>----------------
unodosunknown
<2>----------------
Seq[I391R1C3T:K]:
[1]Seq[I561R2C1T:K]:
*[1]Seq[I694R1C1T:K]:
**[1]String[I695R1C3:C]uno
[2]Seq[I821R2C1T:K]:
*[1]Seq[I22R1C1T:K]:
**[1]String[I23R1C3:C]dos
[3]Seq[I149R2C1T:K]:
*[1]String[I301R1C7:C]unknown
<3>----------------
uno; dos; unknown
<4>----------------
uno
dos
unknown