.data
	n: .word 5
	v: .word 2, 4, 9, 15, 3
.text

suma_patrate:
	subu $sp,4	#push for $fp
	sw $fp,0($sp)	#store $fp
	addi $fp,$sp,4	#Change $fp to point properly
	subu $sp,8	#push for $s0, $ra
	sw $s0,0($sp)
	sw $ra,4($sp)	#for recursivity

	# $sp =($s0),($ra),($fp),fp:($t0)

	lw $s0,0($fp)
	subu $s0,1
	sw $s0,0($fp) 	#Changing parameter now $s0 will be changed
	beq $s0,$0,exitSum
	mul $s0,$s0,$s0
	add $v0,$s0,$0

	jal suma_patrate



	exitSum:
		lw $s0,0($sp)
		lw $ra,4($sp)
		lw $fp,8($sp)
		addu $sp,12
		jr $ra


main:
	li $t0,5
	subu $sp,4
	sw $t0,0($sp)
	li $v0,0

	jal suma_patrate

	addu $sp,4

	move $a0,$v0
	li $v0,1
	syscall

	li $v0,10
	syscall