% Zahlen aus einer Liste herausfiltern:
% zahhlen(+Eingabeliste,-Zahlliste)

zahlen([],[]).
zahlen([X|Xs],Zahlen) :-
    zahlen(Xs, Ns),
    ( number(X)
    -> Zahlen = [X|Ns]
    ; Zahlen = Ns
    ).