$_ .= $/   for  @a, @b;
    my $diff= easy( \@a, \@b );
    while(  @$diff  ) {
        my( $same, $aMin, $aMax, $bMin, $bMax )=
            splice @$diff, 0, 5;
        if(  $same  ) {
            for(  @a[$aMin..$aMax]  ) {
                print " $_";
            }
        } else {
            for(  @a[$aMin..$aMax]  ) {
                print "-$_";
            }
            for(  @b[$bMin..$bMax]  ) {
                print "+$_";
            }
        }
    }