import Control.Applicative ((<$>))
import Data.List (unfoldr, foldl')
import Data.Char (isSpace)
import Control.Monad (replicateM)
import Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as B

main :: IO ()
main = do
    m <- readLn
    putStrLn $ unwords $ map show $ f m

f :: Int -> [Int]
f n = [a, b]
    where
        a = n `div` 2
        b = n - a