Tu as un problème dans le select (regarde bien le code de la deuxième ligne).
Je suppose que tu utilises gnu-Prolog car en SWI-Prolog, select existe et ton code est correct.