grade(distinction, Mark) :-
	Mark >= 70.
grade(pass, Mark) :-
	Mark >= 40,
	Mark < 70.
grade(fail, Mark) :-
	Mark < 39.