program gen1;
var 
 a:array[1..10000] of char; i,j,k:word;
 f:file of char;
procedure Put(b:byte); begin a[j]:=chr(b); inc(j) end;
procedure WriteC; begin write(a[i]); inc(i) end;

begin
 j:=0;
 
 assign(f,'self1.gen'); reset(f);
 while not eof(f) do begin
  read(f,a[j]); inc(j);
 end;
 close(f);
 
 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;
end.