(define (do_it n)
  (define (print_it n)
    (display n)
    (newline))
  (cond ((not(= n 42))
	(print_it n)
	(do_it (read)))
    ))

(define (edit l)
 (set! l "xx") 
 )

(define v "s")
(display v)
(edit v)
(display v)

(do_it (read))