RosettaCodeData/Task/Binary-digits/PL-I/binary-digits-2.pli

   declare text character (50) initial (' ');

   put string(text) edit (25) (b);
   put skip list (trim(text, '0'));

   put string(text) edit (2147483647) (b);
   put skip list (trim(text, '0'));