program self1;
var a:array[1..10000] of char; i,j,k:word;
procedure Put(b:byte); begin a[j]:=chr(b); inc(j) end;
procedure WriteC; begin write(a[i]); inc(i) end;
begin
 j:=0;
 Put(112);
 Put(114);
 Put(111);
 Put(103);
 Put(114);
 Put(97);
 Put(109);
 Put(32);
 Put(115);
 Put(101);
 Put(108);
 Put(102);
 Put(49);
 Put(59);
 Put(10);
 Put(118);
 Put(97);
 Put(114);
 Put(32);
 Put(97);
 Put(58);
 Put(97);
 Put(114);
 Put(114);
 Put(97);
 Put(121);
 Put(91);
 Put(49);
 Put(46);
 Put(46);
 Put(49);
 Put(48);
 Put(48);
 Put(48);
 Put(48);
 Put(93);
 Put(32);
 Put(111);
 Put(102);
 Put(32);
 Put(99);
 Put(104);
 Put(97);
 Put(114);
 Put(59);
 Put(32);
 Put(105);
 Put(44);
 Put(106);
 Put(44);
 Put(107);
 Put(58);
 Put(119);
 Put(111);
 Put(114);
 Put(100);
 Put(59);
 Put(10);
 Put(112);
 Put(114);
 Put(111);
 Put(99);
 Put(101);
 Put(100);
 Put(117);
 Put(114);
 Put(101);
 Put(32);
 Put(80);
 Put(117);
 Put(116);
 Put(40);
 Put(98);
 Put(58);
 Put(98);
 Put(121);
 Put(116);
 Put(101);
 Put(41);
 Put(59);
 Put(32);
 Put(98);
 Put(101);
 Put(103);
 Put(105);
 Put(110);
 Put(32);
 Put(97);
 Put(91);
 Put(106);
 Put(93);
 Put(58);
 Put(61);
 Put(99);
 Put(104);
 Put(114);
 Put(40);
 Put(98);
 Put(41);
 Put(59);
 Put(32);
 Put(105);
 Put(110);
 Put(99);
 Put(40);
 Put(106);
 Put(41);
 Put(32);
 Put(101);
 Put(110);
 Put(100);
 Put(59);
 Put(10);
 Put(112);
 Put(114);
 Put(111);
 Put(99);
 Put(101);
 Put(100);
 Put(117);
 Put(114);
 Put(101);
 Put(32);
 Put(87);
 Put(114);
 Put(105);
 Put(116);
 Put(101);
 Put(67);
 Put(59);
 Put(32);
 Put(98);
 Put(101);
 Put(103);
 Put(105);
 Put(110);
 Put(32);
 Put(119);
 Put(114);
 Put(105);
 Put(116);
 Put(101);
 Put(40);
 Put(97);
 Put(91);
 Put(105);
 Put(93);
 Put(41);
 Put(59);
 Put(32);
 Put(105);
 Put(110);
 Put(99);
 Put(40);
 Put(105);
 Put(41);
 Put(32);
 Put(101);
 Put(110);
 Put(100);
 Put(59);
 Put(10);
 Put(98);
 Put(101);
 Put(103);
 Put(105);
 Put(110);
 Put(10);
 Put(32);
 Put(106);
 Put(58);
 Put(61);
 Put(48);
 Put(59);
 Put(10);
 Put(42);
 Put(32);
 Put(105);
 Put(58);
 Put(61);
 Put(48);
 Put(59);
 Put(32);
 Put(10);
 Put(32);
 Put(119);
 Put(104);
 Put(105);
 Put(108);
 Put(101);
 Put(32);
 Put(97);
 Put(91);
 Put(105);
 Put(93);
 Put(60);
 Put(62);
 Put(39);
 Put(42);
 Put(39);
 Put(32);
 Put(100);
 Put(111);
 Put(32);
 Put(87);
 Put(114);
 Put(105);
 Put(116);
 Put(101);
 Put(67);
 Put(59);
 Put(10);
 Put(32);
 Put(107);
 Put(58);
 Put(61);
 Put(48);
 Put(59);
 Put(32);
 Put(105);
 Put(110);
 Put(99);
 Put(40);
 Put(105);
 Put(41);
 Put(59);
 Put(10);
 Put(32);
 Put(119);
 Put(104);
 Put(105);
 Put(108);
 Put(101);
 Put(32);
 Put(107);
 Put(60);
 Put(106);
 Put(32);
 Put(100);
 Put(111);
 Put(32);
 Put(10);
 Put(32);
 Put(32);
 Put(98);
 Put(101);
 Put(103);
 Put(105);
 Put(110);
 Put(32);
 Put(119);
 Put(114);
 Put(105);
 Put(116);
 Put(101);
 Put(108);
 Put(110);
 Put(40);
 Put(39);
 Put(32);
 Put(80);
 Put(117);
 Put(116);
 Put(40);
 Put(39);
 Put(44);
 Put(111);
 Put(114);
 Put(100);
 Put(40);
 Put(97);
 Put(91);
 Put(107);
 Put(93);
 Put(41);
 Put(44);
 Put(39);
 Put(41);
 Put(59);
 Put(39);
 Put(41);
 Put(59);
 Put(32);
 Put(105);
 Put(110);
 Put(99);
 Put(40);
 Put(107);
 Put(41);
 Put(32);
 Put(101);
 Put(110);
 Put(100);
 Put(59);
 Put(10);
 Put(32);
 Put(119);
 Put(104);
 Put(105);
 Put(108);
 Put(101);
 Put(32);
 Put(105);
 Put(60);
 Put(106);
 Put(32);
 Put(100);
 Put(111);
 Put(32);
 Put(87);
 Put(114);
 Put(105);
 Put(116);
 Put(101);
 Put(67);
 Put(59);
 Put(10);
 Put(32);
 Put(123);
 Put(32);
 Put(68);
 Put(111);
 Put(32);
 Put(115);
 Put(111);
 Put(109);
 Put(101);
 Put(116);
 Put(104);
 Put(105);
 Put(110);
 Put(103);
 Put(32);
 Put(101);
 Put(108);
 Put(115);
 Put(101);
 Put(32);
 Put(104);
 Put(101);
 Put(114);
 Put(101);
 Put(32);
 Put(125);
 Put(10);
 Put(101);
 Put(110);
 Put(100);
 Put(46);
 Put(10);
 i:=0; 
 while a[i]<>'*' do WriteC;
 k:=0; inc(i);
 while k<j do 
  begin writeln(' Put(',ord(a[k]),');'); inc(k) end;
 while i<j do WriteC;
 { Do something else here }
end.