[racket] scribble examples using student language printer

Is there a way to make scribble render the result of evaluating examples 
as if the examples were run in a student language in DrRacket?

Eg., I'd like to see:

   > (define-struct s (f))
   > (make-s 1)
   (make-s 1)

But when I do:

#lang scribble/doc
@(require scribble/eval
           (for-label lang/htdp-intermediate-lambda))

@(define the-eval
   (let ([the-eval (make-base-eval)])
     (the-eval '(require lang/htdp-intermediate-lambda))
     the-eval))

@interaction[#:eval the-eval
   (define-struct s (f))
   (make-s 1)]

I see instead:

   > (define-struct s (f))
   > (make-s 1)
   (s 1 #f)

David