compound ket fn: remove-suffix

remove-suffix:
    description:
        remove-suffix["str"] ket
        if ket has suffix str then remove it

    examples:
        remove-suffix["day"] |Tuesday>
            |Tues>

        remove-suffix["str"] |Tuesday>
            |Tuesday>

    see also:
        remove-prefix, has-suffix, has-prefix