LISP

[vitalik_b1]

Народ... суть в чем .. мне нужна помошь в задачке в LISP.. я написал некую функцию (DIF F x) которая в результате дает список... в котором лежит результат дифферинцирования F по x ..
Допустим при (DIF '(* x x) 'x) - > (+ (* x 1) (* 1 x)) т.е мы продиферинцировали x в квадрате и получили 2x но в таком не очень читаемом виде.... Помогите написать функцию элементарного упрощения результатов.... например если (* x 0) -> 0 или (* x 1) -> x.... ну как то так????? ну что есть идеи....