print "Input X:"
input A$

z = len a$

for x = 0 to z
dim l$(z)
let l$(q) = left$(A$,1)
next x

let y = val (ls$(1))
if y = 0 then end
if y >= 1 then  r = val(l$)
if r = 0 then end else print r