%% -*-prolog-*-
/*  these are predicates that exist in sicstus prolog libraries that don't 
    exist in SWI libraries
*/

append_length(Prefix, Suffix, List, Length) :-
    append(Prefix, Suffix, List),
    length(Prefix, Length).