(define (main args) (let ([n (read)]) (display "1") (let loop ([x (- n 1)]) (cond [(zero? x) #t] [else (format #t " ~a" 3) (loop (- x 1))])) (newline)) 0)