#lang racket/base
(define (main)
(let ([n 42])
(printf "n = ~a, -n = ~a, two's complement = ~a\n"
n (- n) (add1 (bitwise-not n)))))
(module+ main
(main))