Dr Scheme list-ref problem?

(define (p)
(define list1(list 10 20 30 40 ))

(let print ([n 0])
(cond
[(< n (- (length list1) 1)) (list-ref list1 n)(display " ") (print (+ n 1)) ] [else (display".")] ) ) )