?- zebra_solve(Sol).
ERROR: Unknown procedure: select4/5
ERROR:   However, there are definitions for:
ERROR:         select/3
ERROR:
ERROR: In:
ERROR:   [11] select4([450,525|...],[belhino,eldang|...],[100,150|...],[10,15|...],[[825|...],...|...])
ERROR:   [10] zebra_solve([[825|...],...|...]) at /Users/tekk/Documents/pltest/solution.pl:120
ERROR:    [9] toplevel_call('<garbage_collected>') at /usr/local/Cellar/swi-prolog/8.4.3_1/libexec/lib/swipl/boot/toplevel.pl:1158
   Exception: (11) select4([450, 525, 600, 675, 750, 825, 900], [belhino, eldang, mechania, motomiya, suzutake, werril, zarobit], [100, 150, 250, 350, 475, 650, 1000], [10, 15, 20, 25, 30, 40, 60], [[825, motomiya, 650, 15], [750, mechania, 250, 60], [_1998{when = ...}, eldang, 350, 20], [_2564{when = ...}, zarobit, 475, 20], [900, belhino, 150|...], [450, werril|...], [525|...]]) ? creep
?-