(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".")] ) ) )
