program abeceda;
var i,n,a,b,c,d,j:longint;
s:array[1..100] of string;
p:string[1];
begin
readln(n);
for i:=1 to n do
readln(s[i]);






writeln('?');

end.