f :: String -> String f n | ln == 1 = "00" ++ n | ln == 2 = "0" ++ n | otherwise = n where ln = length n main :: IO () main = do n <- readLn putStrLn (f n)