do 9
s=
pull a b c
do j=a by c to b-.01
call charout,s||format(j,,c<1&j%1<>j)
s=" "
end
say
end