(define (reverse1 l)
  (if (null? l)
     nil
     (append (reverse1 (cdr l)) (list (car l)))
  )
) 

(begin
  reverse1  
  (display "Hello, World!")
  (newline))

Hello, World!