Imports System

Public Module Module1

    Public Sub Stringed()

        Dim s, s3, s4 as string

        s = console.readline()

        s3 = s.Length

        s4 = s.Substring(1, s3-2)

        print(s4)

    end sub

    public sub Print(s)

            console.writeline(s)

        end sub

    public sub Main()

        Stringed

    end sub

End Module