Subversion Repositories programming

reigns(victoria,1837,1901).
reigns(edward7,1901,1910).
reigns(george5,1910,1936).
reigns(edward8,1936,1936).
reigns(george6,1936,1952).
reigns(elizabeth2,1952,2004).

monarch(Person,Year) :-
        reigns(Person,Low,High),
        Year >= Low,
        Year =< High.