?- consult('listgen.pro'). % listgen.pro compiled 0.01 sec, 0 bytes Yes ?- incList(4,9,L). L = [4, 5, 6, 7, 8, 9, 10, 11, 12] Yes ?- incList(22,3,L). L = [22, 23, 24] Yes ?- incList(-5,3,L). L = [-5, -4, -3] Yes ?- decList(5,5,L). L = [5, 4, 3, 2, 1] Yes ?- decList(0,8,L). L = [0, -1, -2, -3, -4, -5, -6, -7] Yes ?- decList(12,9,L). L = [12, 11, 10, 9, 8, 7, 6, 5, 4] Yes ?- addList(5,5,5,L). L = [5, 10, 15, 20, 25] Yes ?- addList(12,6,2,L). L = [12, 14, 16, 18, 20, 22] Yes ?- addList(12,6,10,L). L = [12, 22, 32, 42, 52, 62]