main :: IO ()
main = readLn >>= print . floor . (*1.5) . fromIntegral