CREATE OR REPLACE TRIGGER TTTT_MEME 
BEFORE INSERT ON MEME 
FOR EACH ROW 
declare
ln number; 
begin
  select max(id) into ln from MEME;
  :new.id:=ln+1;
end;