(let ((r (read)))
       (display(/ (expt 3 (/ (- (expt 3 r) 1) 2)) (+ (* 2 (/ (-(expt 3 r) 1) 2)) 1))))