(deffacts dane
(lista a b c d)
(lista b a  c)
(lista b b)
(lista a)
(lista)
)

(defrule drukuj_liste
(lista $?r)
=>
(printout t "Treść listy: " $?r crlf)
)