(define fucked (lambda (x) (display "fucked\n") (x x)))
(fucked (call-with-current-continuation (lambda (k) (k k))))