{-# LANGUAGE OverloadedStrings #-} import qualified Data.ByteString.Char8 as BSC8 main :: IO () main = do c <- BSC8.getLine if c == "0" then BSC8.putStrLn "0" else BSC8.putStrLn $ BSC8.snoc c '0'