;_;

(with-christmas-gifts
  (visit family))
(setf *money* 0)
(print ";_;")