;; returns factorial of n
f! (num n) -> num:
	num a: 1	; declare variable a
	call _		; call subprocedure _
	ret &a		; return value stored in a
_:
	mul a &n	; multiply a by the value in n
	dec n		; decrement n by 1
	cmp &n 1	; compare value in n to 1
	jg _		; jump to _ if &n is greater than 1
end

f! 5
print &ax		; <num> 120

mov out "hello world!"
io out			; hello world!

;; this is a procedure
print (str s):
	mov out &s
	io out
end

print "hello world!"	; hello world!

io in
mov out &in
io out

mov R0 2

#include go

place (str prefab, vec scale, num threshold):
	var objs: str ( )	; list to hold references to spawned objects
	mov pos (0 0 0)		; reset origin
	for cx &scale getrand
	push &objs		; push spawned objects to the game object stack
getrand:
	rand
	cmp &threshold &ax
	jg spawnobj
spawnobj:
	spawn &prefab
	push &ax
	move &cx
	pop
	push objs &ax		; push reference to object to objs list
end

place $cube (5 5 5) 0.5

99bottles:
	num bottle : 100
	jmp nextbottle
nextbottle:
	dec bottle
	str &bottle		; convert bottle to string
	mov out &ax		; move bottle to output register
	add out ' bottles of beer on the wall, '
	str &bottle
	add out &ax
	print ' bottles of beer'
	mov out 'take one down and pass it around, '
	sub &bottle 1
	str &ax
	add out &ax
	print ' bottles of beer on the wall.'
	cmp &bottle 1
	jg nextbottle		; loop while bottle is greater than 1
end

99bottles