strlen:
	li      $v0, 0
strlenLoop:     
        lb      $t0, 0($a0)
        beq     $t0, $zero, strlenDone
        add     $v0, $v0, 1
        addu    $a0, $a0, 1
        j       strlenLoop
strlenDone:
        jr      $ra

main:
        addu    $sp, $sp, -100
        move    $a0, $sp
        li      $a1, 100
        li      $v0, 8
        syscall
        move    $a0, $sp
        jal     strlen
        add     $a0, $v0, -1
        li      $v0, 1
        syscall
        la      $a0, newline
        li      $v0, 4
        syscall
        addu    $sp, $sp, 100
        j       main

        .data
newline:
        .asciiz "\n"
        .text