start_up:
	stream$primary_input
	stream$primary_output
	stream$puts
	stream$getl
	string$empty
	int$parse
	stream$putl
	string$concat
	int$unparse
	factorial

factorial:
	int$lt
	int$equal
	int$mul
	factorial
	int$sub