(class Similarity Object () (class-method has:to: (ms ns) (locals i n equivalent) (set n (size ms)) (if (!= n (size ns)) {false} {(set i 1) (set equivalent true) (while {(and: equivalent {(<= i n)})} {(ifTrue:ifFalse: (!= (at: ms i) (at: ns i)) {(set equivalent false)} {(set i (+ i 1))})}) equivalent})))