.text 
	li	$t0, 946381
	li	$t1, 0
L1:	beqz	$t0, L2
	div	$t0, $t0, 10
	addi	$t1, $t1, 1
	b	L1
L2:	la 	$t2, x
	lw	$t2, 0($t2)
	beq	$t1, $t2, L3
	la	$a0, ko
	b 	L4
L3:	la	$a0, ok
L4:	li	$v0, 4
	syscall
	li	$v0, 10
	syscall
	
	.data
x:	.word   ???
ok:	.asciiz "ok"
ko:	.asciiz "ko"