f :: String -> String
f n
  | ln == 1 = "00" ++ n
  | ln == 2 = "0" ++ n
  | otherwise = n
  where ln = length n

main :: IO ()
main = do
  n <- getLine
  putStrLn (f n)