#lang racket

(define (read-int n)
  (if (zero? n)
      null
      (cons (read) (read-int (- n 1)))))

(define pi 3.141592)

(define (solve R)
  (* 2 R pi))

(let* ([R (read)])
  (display (solve R)))
  