parts

/* Minor is being instantiated as '1001' whereas I need it to be a number.However, I'm having trouble using atom_number in this rule and am wondering how else to do this. */

query_verse(Request) :-
    member(method(post), Request), !,
    http_read_data(Request, Data, []),
    format('Content-type: text/html~n~n', []),
    format('<p>', []),
    memberchk(model=Model, Data),
    memberchk(minor=Minor, Data),
    findall(p(Model, Major, Minor, Desc),
        part(Model, Major, Minor, Desc), Descriptions),
    maplist(desc, Descriptions),
    format('</p>').

desc(p(M,A,I,D)) :- format("~q ~q:~q - ~q</br>", [M,A.I.D]).