Module _20190422

    Sub Main()

        Dim sStr() As Char = Console.ReadLine().ToCharArray

        Dim sCorrect As String = ""

        For i As Integer = 0 To sStr.Length - 1

            If sStr(i) = "1" Then

                sCorrect = sCorrect + "9"

            Else

                sCorrect = sCorrect + "1"

            End If

        Next

        Console.WriteLine(sCorrect)

    End Sub

End Module