(define (main args) (let1 n (read) (let loop ([c n]) (cond [(= c n) (format #t "1") (loop (- c 1))] [(= c 1) (format #t " 3\n")] [else (format #t " 3") (loop (- c 1))]))) 0)