CREATE OR REPLACE FUNCTION snittkarakter2
RETURN eksamen.karakter%TYPE
IS

-- explain use of %TYPE
v_snitt eksamen.karakter%TYPE;

-- explain INTO and return
BEGIN
SELECT AVG(karakter) INTO v_snitt FROM eksamen WHERE fnr = (SELECT fnr FROM fag WHERE fnavn = 'PROG');
  RETURN v_snitt;

END snittkarakter2;
/