.globl check
			.globl assess
			.text

check:		#-----------------------
			addi	$t0,$0,0
			addi 	$t6,$0,1
			sll		$t6,$t6,31
			and		$a0,$a0,$t6
			bne 	$a0,0,if
			addi	$v0,$a0,0

			j fini

if:			addi 	$t0, $0, 1
			addi	$v0,$a0,0
			j 		fini

fini:		jr		$ra
assess:		#----------------------

			addi	$t1,$0,0	#count
			add 	$t2,$0,$a0	# temp
			addi 	$t3,$0,0	# i

loop:		slti	$t4,$t3,32
			beq		$t4,$0, result
			beq		$t2,$0,result
			addi	$t1,$t1,1

			sll		$t2,$t2,1
			addi	$t3,$t3,1
			j		loop

result:		sub		$v0,$a0,$t1
			jr 		$ra

			#------------------------------
main:

    sw    $ra, 0($sp)
    addi    $sp, $sp, -4

    addi    $v0, $0, 5
    syscall
    add    $s1, $0, $v0

    add    $a0, $0, $s1

    jal    check
    add    $a0, $0, $v0
    addi    $v0, $0, 1
    syscall

    add    $a0, $0, $s1
    jal    assess
    add    $a0, $0, $v0
    addi    $v0, $0, 1
    syscall

    addi    $sp, $sp, 4
    lw    $ra, 0($sp)
    jr    $ra