megajnlott(X,Y)<-bead(X,'N','elfogadva'),Y=5
megajnlott(X,Y)<-bead(X,'A','elfogadva'),Y=4
megajnlott(X,Y)<-bead(X,'K','elfogadva'),Y=3
levizsgzott(X,Y)<-megajnlott(X,Y),gyakjegy(X,Z),Z>1
levizsgzott(X,Y)<-szbeli(X,Y,Z),Y>1,gyakjegy(X,U),U>1
jeles(X)<-levizsgzott(X,Y),Y=5
uv_lny(X)<-szbeli(X,Y,Z),lny(X),Y=1

bead(A,B,C)
'Andrs','N','elfogadva'
'Bla','N','nincs elfogadva'
'Cecil','A','nincs elfogadva'
'Dnes','K','elfogadva'
'Emil','K','elfogadva'

lny(A)
'Cecil'

szbeli(A,B,C)
'Bla',1,'20070104'
'Bla',1,'20070127'
'Bla',2,'20070131'
'Cecil',1,'20070116'
'Cecil',4,'20070124'
'Ferenc',1,'20070104'
'Ferenc',5,'20070130'
'Gza',1,'20070104'

gyakjegy(A,B)
'Andrs',4
'Bla',2
'Cecil',1
'Dnes',1
'Emil',2
'Ferenc',3
'Gza',3

megajnlott(A,B)
'Andrs',5
'Dnes',3
'Emil',3

levizsgzott(A,B)
'Andrs',5
'Emil',3
'Bla',2
'Ferenc',5

jeles(A)
'Andrs'
'Ferenc'

uv_lny(A)
'Cecil'