#delete a
    .data
str:
    .space 100

    .text
    .globl main

main:
read_string:
    li $v0, 8
    la $a0 str
    li $a1 100
    syscall
    la $t2, ($a0)
loop:
    lbu $t0, 0($a0)
    beqz $t0, copy_null
    beq $t0, 'a', increment_ptr
    sb $t0, 0($t2)
    addiu $t2, $t2, 1
increment_ptr:
    addiu $a0, $a0, 1
    j loop
copy_null:
    sb $a0, 0($t2)

print_string:
    li $v0, 4
    la $a0, str
    syscall
exit:
    li $v0, 10
    syscall