;# creds til åsmund T. :P #

main

data 1 x
data sum

rot
rot
pop sum
	whilestart:
		dup
		jfalse whileslutt

		rot
		dup
		push x
		mul
		pop x	;xi = xi+1

		swap
		push x	
		mul
		push sum
		add
		pop sum

		swap
		push 1
		sub

		jmp whilestart
	whileslutt:
	push sum

end main