P46

(de truthTable (Fun)
   (for X '(T NIL)
      (for Y '(T NIL)
         (println X Y (Fun X Y)) ) ) )

http://picolisp.com/wiki/?99p46

10jul10

abu