#
include
Imports namespace
std

    
    Private Sub swap(ByVal a As Integer, ByVal i As Integer, ByVal j As Integer)
        Dim s As Integer = a(i)
        a(i) = a(j)
        a(j) = s
    End Sub
    
    Private Function NextSet(ByVal a As Integer, ByVal n As Integer) As Boolean
        Dim j As Integer = (n - 2)
        
        While ((j <> -1)  _
                    AndAlso (a(j) >= a((j + 1))))
            j = (j - 1)
            
        End While
        
        If (j = -1) Then
            Return false
        End If
        
        ' 1>;LH5 ?5@5AB0=>2>: =5B
        Dim k As Integer = (n - 1)
        
        While (a(j) >= a(k))
            k = (k - 1)
            
        End While
        
        swap(a, j, k)
        Dim r As Integer = (n - 1)
        Dim l As Integer = (j + 1)
        ' A>@B8@C5< >AB02HCNAO G0ABL ?>A;54>20B5;L=>AB8
        
        While (l < r)
            swap(a, l++, r--)
            
        End While
        
        Return true
    End Function
    
    Private Sub Print(ByVal a As Integer, ByVal n As Integer)
        Dim num As Integer = 1
        ' =><5@ ?5@5AB0=>2:8
        cout.width(3)
        ' H8@8=0 ?>;O 2K2>40 =><5@0 ?5@5AB0=>2:8
        (cout + num) = ((cout + num)  _
                    + 1)
        ": "
        Dim i As Integer = 0
        Do While (i < n)
            (cout  _
                        + (a(i) + " "))
            i = (i + 1)
        Loop
        
        (cout + endl)
    End Sub
    
    Private Function main() As Integer
        Dim Star As Integer
        Dim n As Integer
        a
        (cout + "N = ")
        (cin + n)
        a = New Integer((n) - 1) {}
        Dim i As Integer = 0
        Do While (i < n)
            a(i) = (i + 1)
            i = (i + 1)
        Loop
        
        a(1) = 1
        ' ?>2B>@ONI89AO M;5<5=B
        Print(a, n)
        
        While NextSet(a, n)
            Print(a, n)
            
        End While
        
        cin.get
        cin.get
        Return 0
    End Function