given ($let) {
  when (/A/i) {
     $let = 0;
  }
  when (/B/i) {
     $let = 1;
  }
  when (/C/i) {
     $let = 2;
  }
  when (/D/i) {
     $let = 3;
  }
  when (/E/i) {
     $let = 4;
  }
  when (/F/i) {
     $let = 5;
  }
  when (/G/i) {
     $let = 6;
  }
  when (/H/i) {
     $let = 7;
  }
  when (/I/i) {
     $let = 8;
  }
  when (/J/i) {
     $let = 9;
  }
}