program self2; var a:array[1..10000] of char; i:word; function M:boolean; begin M:=a[i]=chr(42) end; procedure P(b:byte); begin a[i]:=chr(b); inc(i) end; procedure C; begin write(a[i]); inc(i) end; procedure L; begin repeat dec(i) until M end; procedure W; begin writeln(' P(',ord(a[i]),');'); inc(i) end; begin i:=0; P(42); P(112); P(114); P(111); P(103); P(114); P(97); P(109); P(32); P(115); P(101); P(108); P(102); P(50); P(59); P(10); P(118); P(97); P(114); P(32); P(10); P(32); P(97); P(58); P(97); P(114); P(114); P(97); P(121); P(91); P(49); P(46); P(46); P(49); P(48); P(48); P(48); P(48); P(93); P(32); P(111); P(102); P(32); P(99); P(104); P(97); P(114); P(59); P(32); P(105); P(58); P(119); P(111); P(114); P(100); P(59); P(10); P(102); P(117); P(110); P(99); P(116); P(105); P(111); P(110); P(32); P(32); P(77); P(58); P(98); P(111); P(111); P(108); P(101); P(97); P(110); P(59); P(32); P(98); P(101); P(103); P(105); P(110); P(32); P(77); P(58); P(61); P(97); P(91); P(105); P(93); P(61); P(99); P(104); P(114); P(40); P(52); P(50); P(41); P(32); P(101); P(110); P(100); P(59); P(10); P(112); P(114); P(111); P(99); P(101); P(100); P(117); P(114); P(101); P(32); P(80); P(40); P(98); P(58); P(98); P(121); P(116); P(101); P(41); P(59); P(32); P(98); P(101); P(103); P(105); P(110); P(32); P(97); P(91); P(105); P(93); P(58); P(61); P(99); P(104); P(114); P(40); P(98); P(41); P(59); P(32); P(105); P(110); P(99); P(40); P(105); P(41); P(32); P(101); P(110); P(100); P(59); P(10); P(112); P(114); P(111); P(99); P(101); P(100); P(117); P(114); P(101); P(32); P(67); P(59); P(32); P(98); P(101); P(103); P(105); P(110); P(32); P(119); P(114); P(105); P(116); P(101); P(40); P(97); P(91); P(105); P(93); P(41); P(59); P(32); P(105); P(110); P(99); P(40); P(105); P(41); P(32); P(101); P(110); P(100); P(59); P(10); P(112); P(114); P(111); P(99); P(101); P(100); P(117); P(114); P(101); P(32); P(76); P(59); P(32); P(98); P(101); P(103); P(105); P(110); P(32); P(114); P(101); P(112); P(101); P(97); P(116); P(32); P(100); P(101); P(99); P(40); P(105); P(41); P(32); P(117); P(110); P(116); P(105); P(108); P(32); P(77); P(32); P(101); P(110); P(100); P(59); P(10); P(112); P(114); P(111); P(99); P(101); P(100); P(117); P(114); P(101); P(32); P(87); P(59); P(32); P(98); P(101); P(103); P(105); P(110); P(32); P(119); P(114); P(105); P(116); P(101); P(108); P(110); P(40); P(39); P(32); P(80); P(40); P(39); P(44); P(111); P(114); P(100); P(40); P(97); P(91); P(105); P(93); P(41); P(44); P(39); P(41); P(59); P(39); P(41); P(59); P(32); P(105); P(110); P(99); P(40); P(105); P(41); P(32); P(101); P(110); P(100); P(59); P(10); P(98); P(101); P(103); P(105); P(110); P(10); P(32); P(105); P(58); P(61); P(48); P(59); P(10); P(42); P(32); P(10); P(32); P(76); P(59); P(76); P(59); P(76); P(59); P(105); P(110); P(99); P(40); P(105); P(41); P(59); P(10); P(32); P(114); P(101); P(112); P(101); P(97); P(116); P(32); P(67); P(32); P(117); P(110); P(116); P(105); P(108); P(32); P(77); P(59); P(10); P(32); P(76); P(59); P(10); P(32); P(114); P(101); P(112); P(101); P(97); P(116); P(32); P(87); P(32); P(117); P(110); P(116); P(105); P(108); P(32); P(77); P(59); P(10); P(32); P(114); P(101); P(112); P(101); P(97); P(116); P(32); P(87); P(32); P(117); P(110); P(116); P(105); P(108); P(32); P(77); P(59); P(10); P(32); P(87); P(59); P(10); P(32); P(76); P(59); P(76); P(59); P(105); P(110); P(99); P(40); P(105); P(41); P(59); P(10); P(32); P(114); P(101); P(112); P(101); P(97); P(116); P(32); P(67); P(32); P(117); P(110); P(116); P(105); P(108); P(32); P(77); P(59); P(10); P(32); P(123); P(32); P(68); P(111); P(32); P(115); P(111); P(109); P(101); P(116); P(104); P(105); P(110); P(103); P(32); P(101); P(108); P(115); P(101); P(32); P(104); P(101); P(114); P(101); P(32); P(125); P(10); P(101); P(110); P(100); P(46); P(42); L;L;L;inc(i); repeat C until M; L; repeat W until M; repeat W until M; W; L;L;inc(i); repeat C until M; { Do something else here } end.