procedure q;
begin
  var i,j,k,mmm: integer;
end;

begin
  
end.