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