Max Element In List Prolog