module Main where

main :: IO ()
main = readLn >>= putStrLn . solve

solve :: Int -> String
solve n = (++) "01" . take n $ repeat '0'