Prolog coursewokr