//并查集敲跪了，我就不信20个点没有LAY!
//并查集敲跪了，我就不信20个点没有LAY!
//并查集敲跪了，我就不信20个点没有LAY!
//并查集敲跪了，我就不信20个点没有LAY!
//并查集敲跪了，我就不信20个点没有LAY!
type arr=array[1..10001] of longint;
var fa,pre,next,sett:arr;
    n,i,j,k,m:longint;

{procedure init;
begin 
  readln(n,m);
end;
function getf(v:longint):longint;
begin
  if fa[v]:=v then getf:=v
  else getf:=getf(fa[v]);
end;

procedure union(x,y:longint);
begin
  x:=getf(x);
  y:=getf(y);
  fa[x]:=y;
end;

function judge(x,y:longint):boolean;
begin  
  x:=getf(x);
  y:=getf(y);
  if x=y then exit(true);
  exit(false);
end;}

procedure pianfen;
begin
  writeln('SOMEONE LAY!');
end;

begin
  assign(input,'ExamStat.in');
  assign(output,'ExamStat.out');
  reset(input);
  rewrite(output);
  pianfen;
  close(input);
  close(output);
end.