mem=Hash.new(0)
vars=[0]*26
code=gets(nil).scan(/(\d+|[a-zA-Z])[^0-9a-zA-Z]*(\d+|[a-zA-Z])/)
#special variables
#c = code pointer
#p = mem mointer
#i = input
#o = output
while vars[2]<code.size
	to,from=code[vars[2]]
	from_val=case from[0]
	when ?i : getc
	when ?0..?9 : from.to_i
	when ?A..?Z : mem[vars[15]+from[0]-?A]
	when ?a..?z : vars[from[0]-?a]
	else raise "invalid from value"
	end
	case to[0]
	when ?o : putc -from_val
	when ?0..?9 : raise "can't assign to number"
	when ?A..?Z : mem[vars[15]+to[0]-?A]-=from_val
	when ?a..?z : vars[to[0]-?a]-=from_val
	end
	vars[2]+=1
end

#p vars