(define (appy x) (list x 'x))

(define foo (appy 'putz))