Imports System

Public Module Module1

    Public Sub Main()

        dim x as double= console.readline()

        for number as double = 1 to x

        x = x*number

        console.writeline(x)

    next

    End Sub

End Module