=> (make-obj food name expires)

=> (define f (make-food "apple" 10))

=> (food-name f)
"apple"