sequence function: unscaled-simm

    description:
        unscaled-simm(seq, seq)
        unscaled-simm(seq, seq) input-ket
        the aligned sequences version of our similarity measure
        NB: in this version, the superpositions are not rescaled.
        for each superposition in our sequences, calculate the similarity measure
        (ie, 0 for completely distinct, 1 for exactly the same, values in between otherwise)
        then average them

    examples:
        unscaled-simm(|a>, |b>)
            0|unscaled-simm>

        unscaled-simm(3|a> + 1.2|b>, 3.5|a> + 0.9|b> + 5.13|c>)
            0.409|unscaled-simm>        

        unscaled-simm(|a1> + |a2> . 0.3|b1> + 0.5|b2>, 3|a1> + 0.9|a2> . 0.7|b2>)
            0.556|unscaled-simm>       

        push-float unscaled-simm(|a>, split |a b c d>) |result>
            |result: 0.25>

    see also: 
        simm