.data
nums: .word 777,33,35,35,33,777
.text
la $a1, nums
li $a2, 1
jal print_poly
j exit

print_poly:
mul $a2, $a2, 4
move $t0, $a1
add $t1, $a1, $a2
add $t1, $t1, -4
li $t3, 1
beq $t1,$t0, single
loop:
bge $t0, $t1, exit_poly

lw $a0, ($t0)
li $v0, 1
syscall

li $a0, ' '
li $v0, 11
syscall

lw $a0, ($t1)
li $v0, 1
syscall

li $a0, ' '
li $v0, 11
syscall

lw $t4, ($t1)
lw $t5, ($t0)
beq $t4, $t5, pali
li $t3, 0
pali:

add $t1, $t1, -4
add $t0, $t0, 4

j loop
single:
lw $a0, ($t0)
li $v0, 1
syscall
li $a0, ' '
li $v0, 11
syscall
li $t3, 1

exit_poly:
beqz $t3, exit_poly2
li $a0, 'Y'
li $v0, 11
syscall
jr $ra

exit_poly2:
li $a0, 'N'
li $v0, 11
syscall
jr $ra


exit: