: fd>string ( x -- y ) 
    [ radix>> ] [ value>> ] bi number>string 2dup length - 0
    <=> {
       { +lt+ [ "." spin insert-at* ] }
       { +eq+ [ "0." prepend nip ] } 
       { +gt+ [ dup length swapd - zero-string "0." spin 3append ] }
    } case ;