readInt :: String -> Int
readInt = read

main = do
    s <- readInt <$> getLine
    print $ solve s

solve :: Int -> String
solve x 
    | x == 0 = []
    | otherwise = (solve (div x (-2))) ++ (num !! (mod x 2))
            where num = ["0","1"]