Program
:-use_module(library(lists)).
Query limit: