(define (print x) (display x) (newline)) (define (write-line x) (write x) (newline)) (define arithmetic-shift ash)
