solve :: Int -> IO ()
solve x
    | x < 10 = putStrLn $ show x
    | otherwise = putStrLn "error"


main = do
    line <- getLine
    let s = foldl (+) 0 (map (\x -> read x :: Int) (words line))
    solve s
