(define yuki835
  (let* ((n (read)))
    (write (quotient (* 3 n) 2))
    (newline)))