.text
	li	$t0, 0
	la 	$t1, x
	lw 	$t1, 0($t1)
	b	L2
L1:	add 	$t0, $t0, $t1
	subi 	$t1, $t1, 1
L2:	bgtz	$t1, L1
	beq	$t0, 4753, 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"