{
TASK:WIRELESS
LANG:Pascal
}
program lol;
var
  s : string;

begin

  ReadLn(S);
  ReadLn(S);
  ReadLn(S);
  ReadLn(S);
  ReadLn(S);

  if S[1] = '1' then
  begin
    WriteLn('2 3');
    WriteLn('1 1');
    WriteLn('3 2');
  end
  else
  begin
    WriteLn('2 4');
    WriteLn('1 3');
    WriteLn('4 1');
  end;

end.