program kar;

  var
  pole:array [1..5] of integer;
  x,i: integer;

  begin
  pole[1]:=1;
  pole[2]:=1;
  pole[3]:=1;
  pole[4]:=1;
  pole[5]:=1;

  for i:=1 to 32 do begin
  x:=pole[1];
  pole[1]:=pole[2];
  pole[2]:=pole[3];

  pole[3]:=pole[4];
  pole[4]:=pole[5];
  pole[5]:=(pole[5]+x) mod 2;
  writeln(pole[1],pole[2],pole[3],pole[4],pole[5]);
  end;
  readln;
  end.