Maplist helpers

:- meta_predicate
    include_(+, 1, -),
    exclude_(+, 1, -),
    partition_(+, -, -, 1),
    partition_(+, -, -, -, 2),
    maplist_(?, 1),
    maplist_(?, ?, 2),
    maplist_(?, ?, ?, 3),
    maplist_(?, ?, ?, ?, 4),
    foldl_(+, +, 3, -),
    foldl_(+, +, +, 4, -),
    foldl_(+, +, +, +, 5, -),
    foldl_(+, +, +, +, +, 6, -),
    scanl_(+, +, 3, -),
    scanl_(+, +, +, 4, -),
    scanl_(+, +, +, +, 5, -),
    scanl_(+, +, +, +, +, 6, -).


:- meta_predicate my_module_sensitive_code(?).
my_module_sensitive_code(_E):- context_module(CM),writeln(context_module=CM).

?- maplist(my_module_sensitive_code,[1,2]),fail.
context_module=apply.
context_module=apply.
No.