main = let f x | x > 1.5 = 1 + f (x-1.0) | otherwise = 1 in print . f . (*1.5) . read =<< getLine