import Control.Monad
import Data.Bits

main = do
    n <- read <$> getLine
    putStrLn $ solve n 1

solve :: Int -> Int -> String
solve n b | n == 0    = "0"
          | n == b    = "1"
          | cond      = solve  n      (b * (-2)) ++ "0"
          | otherwise = solve (n - b) (b * (-2)) ++ "1"
  where
    cond = abs n .&. abs b == 0
