.data
arr: .word 0, 1,1,2,3,5,8,13,21,34,55,89,144,233,377

.text
addi $s0, $0, 0  # s0 = m
addi $s1, $0, 1  # s1 = p
addi $s2, $0, 89  # numero de prueba
    
while:
   slt $t1, $s1, $s2   # si p < n: 1 else:0
    beq $t1, 0, retorno # si el retorno anterior es 0 va a retorno
    addi $s0, $s0, 1
    sll $s1, $s1,1
    
    j while
    
retorno:
    move $a0, $s0
    li $v0 1
    syscall