Module Module1
    Sub main()
        Dim user1 = Console.ReadLine()
        Dim result As String = "ABC"
        If user1 = result Then result = "ARC"
        Console.WriteLine(result)
    End Sub
End module