member(Item, [Item|_]).
member(Item, [_|Tail]):-
    member(Item, Tail).

% (namn,yrke,hem,lön)
p(Hs) :-
    Hs = [h(_, eldare, _, _), h(_, bromsare, _, _), h(_, lokforare, _, _),
        h(anders, affars, _, _), h(petter, affars, _,  _), h(lund, affars, _, _)],

    % 1
    member(h(petter, affars, goteborg, _), Hs),
    % 2
    member(h(_, bromsare, hallsberg, _), Hs),
    % 3
    member(h(lund, affars, _, ejmult3), Hs),
    % 4
    member(h(_,affars,annat,mult3), Hs),
    % 5
    \+ (member(h(anders, eldare, _, _), Hs)),
    % 6
    member(h(X, bromsare,_,_), Hs),
    member(h(X, affars, stockholm, _), Hs),
    % el question
    member(_, lokforare, _, _).