Разребая хлам у себя на компе, натолкнулся на одну веселую сохраненку на PL/SQL, которую когда-то давно написал...
Не программистам лучше не читать. :-)

create or replace procedure pjanka
is
cursor girls is
select * from friends
where freeday = sysdate
and sex = 'GIRL';
stopka number;
p_state varchar(20);
my_name varchar(50);
begin
drunk:
for stopka:=1 to 5 loop
update organizm
set drunk_stopka = drunk_stopka + 1;
end loop;
update organizm
set smoke_sigar = smoke_sigar + 1;
select state into o_state from organizm;
if o_state = 'NOT DRUNKED' then goto drunk;
else if o_state = 'NOT RESPONDED' then goto finish;
end if;
for girl in girls loop
if girl.state <> 'BUZY' then
alter girl add dancing;
alter girl add kissing;
insert into girl
values :-);
with girl goto drunk;
else
if girl.currval > girl.max then
goto drunk;
else girl.nextval;
end if;
end loop;
finish:
alter system disconnect session (sys_context('sessionid', my_name)) immediate;
while sysdate < to_date('12:00:00','hh24:mi:ss') loop
null;
end loop;
rollback;
alter organizm add beer;
commit;
end;