procedure Semmi is
begin
	null;
end;