Rewrote shopping list in lisp