:Input a,"Num to stringify"
:0->b
:while ipart(a) != 0
:a/10->a
:b+1->b
:end
:" "->str1
:while a != 0
:if b = 0
:str1+"."->str1
:a*10->a
:str1+sub("0123456789",ipart(a)+1,1)->str1
:fpart(a)->a
:b-1->b
:end
:sub(str1,2,length(str1))->str1
:disp str1