sigmoid: set-to

    description:
        set-to[t] ket
        set all coefficients to t
        return t

    examples:
        set-to[7] (0|x> + 3|y> - 0.5|z>)
            7|x> + 7|y> + 7|z>

    see also: