SET SERVEROUTPUT ON
DECLARE
anudepth anuses.depth%TYPE;
anusize anuses.size%TYPE;
anuwidth anuses.width%TYPE;
dicklen dicks.lenght%TYPE;
dickwid dicks.width%TYPE;
dickwei dicks.weight%TYPE;
dickheadwid dicks.headwidth%TYPE;
CURSOR anus_cursor IS
SELECT size, width FROM anuses
WHERE depth < 6
ORDER BY depth;
CURSOR dick_cursor(anudepth NUMBER) IS
SELECT lenght, width, weight, headwidth FROM dicks
WHERE lenght > 20 AND depth = anudepth;
BEGIN
OPEN anus_cursor;
LOOP
FETCH anus_cursor INTO anudepth, anuwidth;
EXIT WHEN anus_cursor%NOTFOUND;
DBMS_OUTPUT.PUT_LINE( anudepth || ' is the depth of your ' || anuwidth || '-width anus!');
IF dick_cursor%ISOPEN THEN CLOSE dick_cursor; END IF;
OPEN dick_cursor(anudepth); LOOP
FETCH dick_cursor INTO dicklen, dickwid, dickwei, dickheadwid;
EXIT WHEN dick_cursor%NOTFOUND;
DBMS_OUTPUT.PUT_LINE( 'So I heard your dick is ' ||dicklen || ' long, ' || dickwid || ' thick, ' || dickwei || ' heavy, and your fucking dickhead is ' || dickheadwid || ' thick.' );
END LOOP;
CLOSE dick_cursor;
END LOOP;
CLOSE anus_cursor;
DBMS.OUTPUT_PUT.LINE( 'I can here from here how the girl is FUCKING going to cry...' )
END;
/