all [
            safe
            not float? s
            any [
                all [
                    positive? v
                    2147483647 - v < s
                ]
                all [
                    negative? v
                    -2147483648 - v > s
                ]
            ]
            s: to float! s