main :: IO ()
main = print . (\x -> div x 2 * div x 2) =<< readLn