$reference =~ s/\n/§¤/gim;
    $result =~ s/\n/§¤/gim;
    @a = split('§¤',$model->reduce($reference));
    @b = split('§¤',$model->reduce($result));
    traverse_sequences( \@a,\@b,
            { MATCH => \&match,
              DISCARD_A => \&dis_a,
              DISCARD_B => \&dis_b,
            } );