RosettaCodeData/Task/Pick-random-element/PL-I/pick-random-element.pli

   declare t(0:9) character (1) static initial
      ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j');
   put ( t(10*random()) );