Imports System

Public Module Module1

    Public Sub Main()

        dim x as integer = console.ReadLine()

        dim y as string

        dim n as integer

        for n = 1 to 3

        if ( n = 1 )

            y = x

        else

            y = y & x

        end if

        x = x - 1

        if (x = 0)

            n = 3

        Else

            n = 1

        End if

    next

    y = y & 0

    print (y)

    End Sub

Public sub print(ps as string)

        console.WriteLine(ps)

    End sub

End Module