.data
cadena:	      .asciiz "hola, ¿cómo estás?"
	      .align  2
n:	      .space  4

	      .text
main:	      andi $t0, $t0, 0		# $t0 <- 0
mientras:     lb   $t1, cadena($t0)	# $t1 <- M[cadena+$t0] (un byte)
	      beq  $t1, $0, finmientras	# Si $t1==0 salta a finmientras
	      addi $t0, $t0, 1		# $t0 <- $t0+1
	      j    mientras		# Salta a mientras
finmientras:  sw   $t0, n($0)		# M[n] <- $t0