import Data.Ratio import Text.Printf main = do n <- readLn let ans = a !! n printf "%.10f\n" (fromRational ans :: Double) a = 4 : 3 : zipWith (\x y-> (19 * y - 12 * x) / 4) a (tail a)