main:
lodr $0 5.0
lodi $1 50000
lodi $2 0
lodi $3 -1
loop_body:
lodr $5 5.0
addr $0 $0 $5
addi $1 $1 $3
lodu $4 &loop_body
jgei $4 $1 $2
rtou $1 $0
strs "Enter a string:"
ladu $5 0
puts $5
gets $2
utos $3 $1
puts $3
rtos $3 $0
puts $2
halt