parse arg n
If n < 1 Then Do
    n = 1
End

x = 0

Do A = 1 To n
    Do B = 1 To n
        Do C = 1 To n
            Do D = 1 To n
                Do E = 1 To n
                    Do F = 1 To n
                        x = x + 1
                    End
                End
            End
        End
    End
End

say x