.data
prompt:	.asciiz "Enter string:\n"
buf: .space 100
.text
.globl main
main:
	li $v0, 4
	la $a0, prompt
	syscall
	li $v0, 8
	la $a0, buf
	li $a1, 100
	syscall
	li $t0, '0'
	li $t1, '9'
	la $t2, buf
	add $t3, $zero, $t2
	lb $t4, ($t3)
	beqz $t4, end
loop:
	ble $t4, $t0, next
	bge $t4, $t1, next
	add $t5, $zero, $t3
moveall:
	add $t6, $zero,$t5
	addi $t5, $t5, 1
	lb $t7, ($t5)
	sb $t7, ($t6)
	bnez $t7, moveall
	addi $t3, $t3, -1
next:
	addi $t3, $t3, 1
	lb $t4, ($t3)
	bnez $t4, loop
end:
	li $v0, 4
	la $a0, buf
	syscall
	li $v0, 10
	syscall