← Back to branch summary

~ubuntu-branches/ubuntu/saucy/bioperl/saucy-proposed

« back to all changes in this revision

Viewing changes to t/Map/Map.t

  • Committer: Bazaar Package Importer
  • Author(s): Charles Plessy
  • Date: 2009-03-10 07:19:11 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090310071911-fukqzw54pyb1f0bd
Tags: 1.6.0-2
https://launchpad.net/bugs/324001
* Removed patch system (not used):
  - removed instuctions in debian/rules;
  - removed quilt from Build-Depends in debian/control.
* Re-enabled tests:
  - uncommented test command in debian/rules;
  - uncommented previously missing build-dependencies in debian/control.
  - Re-enabled tests and uncommented build-dependencies accordingly.
* Removed libmodule-build-perl and libtest-harness-perl from
  Build-Depends-Indep (provided by perl-modules).
* Better cleaning of empty directories using find -type d -empty -delete
  instead of rmdir in debian/rules (LP: #324001).

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/Map/Map.t
 
1
# -*-Perl-*- Test Harness script for Bioperl
 
2
# $Id: Map.t 15308 2009-01-06 17:25:39Z cjfields $
 
3
 
 
4
use strict;
 
5
 
 
6
BEGIN {
 
7
    use lib '.';
 
8
    use Bio::Root::Test;
 
9
    
 
10
    test_begin(-tests => 267);
 
11
    
 
12
    use_ok('Bio::Map::SimpleMap');
 
13
    use_ok('Bio::Map::Marker');
 
14
    use_ok('Bio::Map::Position');
 
15
    use_ok('Bio::Map::Relative');
 
16
    use_ok('Bio::Map::Mappable');
 
17
}
 
18
 
 
19
###
 
20
# We explicitly test Bio::Map::SimpleMap, Bio::Map::Mappable, Bio::Map::Position,
 
21
# Bio::Map::Marker and Bio::Map::Relative.
 
22
#
 
23
# We implicitly test Bio::Map::MapI, Bio::Map::MappableI, Bio::Map::PositionI,
 
24
# and Bio::Map::PositionHandler.
 
25
###
 
26
 
 
27
# Test map basics
 
28
my $map;
 
29
{
 
30
    ok $map = Bio::Map::SimpleMap->new(-name  => 'my');
 
31
    ok $map->type('cyto');
 
32
    is $map->type, 'cyto';
 
33
    is $map->units, '';
 
34
    is $map->length, 0, "Length is ". $map->length;
 
35
    is $map->name, 'my';
 
36
    is $map->species('human'), 'human';
 
37
    is $map->species, 'human';
 
38
    is $map->unique_id, '1';
 
39
}
 
40
 
 
41
# Test marker basics
 
42
my $marker;
 
43
{
 
44
    # make a plane one and add details after
 
45
    ok $marker = Bio::Map::Marker->new();
 
46
    is $marker->name('gene1'), 'gene1';
 
47
    ok $marker->position($map, 100);
 
48
    is $marker->position->value, 100;
 
49
    is $marker->map, $map;
 
50
    
 
51
    # make positions a little easier to add by setting a default map first
 
52
    ok my $marker2 = Bio::Map::Marker->new(-name => 'gene3');
 
53
    ok $map->add_element($marker2); # one way of setting default
 
54
    is $marker2->default_map, $map;
 
55
    $marker2 = Bio::Map::Marker->new(-name => 'gene3');
 
56
    ok $marker2->default_map($map); # the other way of setting default
 
57
    is $marker2->default_map, $map;
 
58
    ok $marker2->position(300);
 
59
    is $marker2->position->value, 300;
 
60
    ok my $position = $marker2->position();
 
61
    is $position->value, 300;
 
62
    
 
63
    # make one with details set in new()
 
64
    ok my $marker3 = Bio::Map::Marker->new(-name => 'gene2', -position => [$map, 200]);
 
65
    is $marker3->default_map, $map;
 
66
    is $marker3->position->value, 200;
 
67
    
 
68
    # make one with multiple positions on multiple maps
 
69
    my $map2 = Bio::Map::SimpleMap->new();
 
70
    $marker2->positions([[$map, 150], [$map, 200], [$map2, 200], [$map2, 400]]);
 
71
    my @p = map($_->numeric, $marker2->each_position);
 
72
    is $p[0], 150;
 
73
    is $p[1], 200;
 
74
    is $p[2], 200;
 
75
    is $p[3], 300;
 
76
    is $p[4], 400;
 
77
    $marker2->purge_positions($map2);
 
78
    @p = map($_->numeric, $marker2->each_position);
 
79
    is $p[0], 150;
 
80
    is $p[1], 200;
 
81
    is $p[2], 300;
 
82
    
 
83
    # make sure we can add positions with 0 value
 
84
    my $map3 = Bio::Map::SimpleMap->new();
 
85
    $marker->add_position($map3, 0);
 
86
    ok my @positions = $marker->get_positions($map3);
 
87
    is @positions, 1;
 
88
    is $positions[0]->value, 0;
 
89
}
 
90
 
 
91
# Test position basics
 
92
my $pos;
 
93
{
 
94
    ok $pos = Bio::Map::Position->new();
 
95
    ok $pos->map($map);
 
96
    is $pos->map(), $map;
 
97
    ok $pos->element($marker);
 
98
    is $pos->element(), $marker;
 
99
    
 
100
    ok $pos->value('10');
 
101
    is $pos->value(), '10';
 
102
    is $pos->numeric, 10;
 
103
    is $pos->sortable, 10;
 
104
    is $pos->start, 10;
 
105
    is $pos->end, 10;
 
106
    
 
107
    # give a marker a single position with explicit position creation
 
108
    ok $pos = Bio::Map::Position->new(-map => $map, -value => 500);
 
109
    ok $marker->position($pos);
 
110
    ok my $got_pos = $marker->position();
 
111
    is $got_pos, $pos;
 
112
    is $marker->position->value, 500;
 
113
    
 
114
    # add a position
 
115
    my $map2 = Bio::Map::SimpleMap->new(-name => 'genethon', -type => 'Genetic');
 
116
    my $pos2 = Bio::Map::Position->new(-map => $map2, -value => 100);
 
117
    $marker->add_position($pos2);
 
118
    ok my @positions = $marker->get_positions($map2);
 
119
    is @positions, 1;
 
120
    is $positions[0]->value, 100;
 
121
}
 
122
 
 
123
# Test interaction of Markers and Maps via Positions
 
124
{
 
125
    # markers know what maps they are on
 
126
    $marker->purge_positions;
 
127
    is $marker->known_maps, 0;
 
128
    $pos->element($marker);
 
129
    is $marker->known_maps, 1;
 
130
    ok $marker->in_map(1);
 
131
    ok $marker->in_map($map);
 
132
    
 
133
    # maps know what markers are on themselves
 
134
    $map->purge_positions;
 
135
    my @els = $map->get_elements;
 
136
    is @els, 0;
 
137
    $pos->map($map);
 
138
    ok my @elements = $map->get_elements;
 
139
    is @elements, 1;
 
140
    is $elements[0], $marker;
 
141
    
 
142
    # positions know what marker they are for and what map they are on
 
143
    is $pos->map, $map;
 
144
    is $pos->element, $marker;
 
145
}
 
146
 
 
147
# We can compare Map objects to their own kind
 
148
{
 
149
    # positions to positions
 
150
    {
 
151
        ok $pos->equals($pos);
 
152
        # these get tested properly when testing Relative, later
 
153
    }
 
154
    
 
155
    # markers to markers
 
156
    {
 
157
        ok $marker->equals($marker);
 
158
        # these get tested properly when testing Mappables, later
 
159
    }
 
160
    
 
161
    # maps to maps
 
162
    {
 
163
        my $human = Bio::Map::SimpleMap->new();
 
164
        my $mouse = Bio::Map::SimpleMap->new();
 
165
        my $chicken = Bio::Map::SimpleMap->new();
 
166
        my $aardvark = Bio::Map::SimpleMap->new();
 
167
        
 
168
        # scenario 1: we have information about where some factors bind upstream
 
169
        # of a gene in 4 different species. Which factors are found in all the
 
170
        # species?
 
171
        my $fac1 = Bio::Map::Mappable->new();
 
172
        my $pos1 = Bio::Map::Position->new(-map => $human, -element => $fac1);
 
173
        my $pos2 = Bio::Map::Position->new(-map => $mouse, -element => $fac1);
 
174
        my $pos3 = Bio::Map::Position->new(-map => $chicken, -element => $fac1);
 
175
        my $pos4 = Bio::Map::Position->new(-map => $aardvark, -element => $fac1);
 
176
        my $fac2 = Bio::Map::Mappable->new();
 
177
        my $pos5 = Bio::Map::Position->new(-map => $human, -element => $fac2);
 
178
        my $pos6 = Bio::Map::Position->new(-map => $mouse, -element => $fac2);
 
179
        my $pos7 = Bio::Map::Position->new(-map => $chicken, -element => $fac2);
 
180
        my $fac3 = Bio::Map::Mappable->new();
 
181
        my $pos8 = Bio::Map::Position->new(-map => $human, -element => $fac3);
 
182
        my $pos9 = Bio::Map::Position->new(-map => $mouse, -element => $fac3);
 
183
        
 
184
        # scenario 1 answer:
 
185
        ok my @factors = $human->common_elements([$mouse, $chicken, $aardvark]);
 
186
        is @factors, 1;
 
187
        ok @factors = $human->common_elements([$mouse, $chicken, $aardvark], -min_percent => 50);
 
188
        is @factors, 3;
 
189
        ok @factors = $human->common_elements([$mouse, $chicken, $aardvark], -min_percent => 50, -min_num => 3);
 
190
        is @factors, 2;
 
191
        ok @factors = $chicken->common_elements([$mouse, $human, $aardvark], -min_percent => 50, -require_self => 1);
 
192
        is @factors, 2;
 
193
        ok @factors = Bio::Map::SimpleMap->common_elements([$human, $mouse, $human, $aardvark], -min_percent => 50, -required => [$aardvark]);
 
194
        is @factors, 1;
 
195
    }
 
196
}
 
197
 
 
198
# Test relative positions
 
199
{
 
200
    my $map = Bio::Map::SimpleMap->new();
 
201
    my $pos1 = Bio::Map::Position->new(-map => $map, -start => 50, -length => 5);
 
202
    my $pos2 = Bio::Map::Position->new(-map => $map, -start => 100, -length => 5);
 
203
    ok my $relative = Bio::Map::Relative->new(-position => $pos2);
 
204
    ok $pos1->relative($relative);
 
205
    is $pos1->start, 50;
 
206
    is $pos1->absolute(1), 1;
 
207
    is $pos1->start, 150;
 
208
    is $pos1->absolute(0), 0;
 
209
    ok my $relative2 = Bio::Map::Relative->new(-map => 10);
 
210
    my $pos3 = Bio::Map::Position->new(-map => $map, -element => $marker, -start => -5, -length => 5);
 
211
    $pos3->relative($relative2);
 
212
    my $relative3 = Bio::Map::Relative->new(-position => $pos3);
 
213
    is $pos1->start($relative3), 145;
 
214
    is $pos1->numeric($relative3), 145;
 
215
    is $pos1->end($relative3), 149;
 
216
    
 
217
    # Test the RangeI-related methods on relative positions
 
218
    {
 
219
        my $pos1 = Bio::Map::Position->new(-map => $map, -start => 50, -length => 10);
 
220
        my $pos2 = Bio::Map::Position->new(-map => $map, -start => 100, -length => 10);
 
221
        my $pos3 = Bio::Map::Position->new(-map => $map, -start => 45, -length => 1);
 
222
        my $pos4 = Bio::Map::Position->new(-map => $map, -start => 200, -length => 1);
 
223
        my $relative = Bio::Map::Relative->new(-position => $pos3);
 
224
        my $relative2 = Bio::Map::Relative->new(-position => $pos4);
 
225
        ok ! $pos1->overlaps($pos2);
 
226
        $pos1->relative($relative);
 
227
        ok $pos1->overlaps($pos2);
 
228
        ok $pos2->overlaps($pos1);
 
229
        ok $pos1->overlaps($pos2, undef, $relative2);
 
230
        
 
231
        # Make sure it works with normal Ranges
 
232
        use Bio::Range;
 
233
        my $range = Bio::Range->new(-start => 100, -end => 109);
 
234
        ok $pos1->overlaps($range);
 
235
        ok ! $range->overlaps($pos1);
 
236
        $pos1->absolute(1);
 
237
        ok $range->overlaps($pos1);
 
238
        $pos1->absolute(0);
 
239
        
 
240
        # Try the other methods briefly
 
241
        ok my $i = $pos1->intersection($pos2); # returns a mappable
 
242
        ($i) = $i->get_positions; # but we're just interested in the first (and only) position of mappable
 
243
        is $i->toString, '100..104';
 
244
        ok $i = $pos1->intersection($pos2, undef, $relative2);
 
245
        ($i) = $i->get_positions;
 
246
        is $i->toString, '-100..-96';
 
247
        is $i->map, $map;
 
248
        is $i->relative, $relative2;
 
249
        $i->absolute(1);
 
250
        is $i->toString, '100..104';
 
251
        
 
252
        ok my $u = $pos1->union($pos2);
 
253
        ($u) = $u->get_positions;
 
254
        is $u->toString, '95..109';
 
255
        ok $u = $pos1->union($pos2, $relative2);
 
256
        ($u) = $u->get_positions;
 
257
        is $u->toString, '-105..-91';
 
258
        is $u->map, $map;
 
259
        is $u->relative, $relative2;
 
260
        $u->absolute(1);
 
261
        is $u->toString, '95..109';
 
262
        
 
263
        ok ! $pos1->contains($pos2);
 
264
        $pos2->end(104);
 
265
        ok $pos1->contains($pos2);
 
266
        ok $pos1->contains(100);
 
267
        
 
268
        ok ! $pos1->equals($pos2);
 
269
        $pos2->start(95);
 
270
        ok $pos1->equals($pos2);
 
271
    }
 
272
}
 
273
 
 
274
# Test Mappables
 
275
{
 
276
    ok my $gene = Bio::Map::Mappable->new();
 
277
    my $human = Bio::Map::SimpleMap->new();
 
278
    my $mouse = Bio::Map::SimpleMap->new();
 
279
    ok my $pos1 = Bio::Map::Position->new(-map => $human, -element => $gene, -start => 50, -length => 1000);
 
280
    my $pos2 = Bio::Map::Position->new(-map => $mouse, -start => 100, -length => 1000);
 
281
    $gene->add_position($pos2);
 
282
    my $gene_rel = Bio::Map::Relative->new(-element => $gene);
 
283
    
 
284
    # scenario 1a: we know where a TF binds upstream of a gene in human.
 
285
    # we use four different programs to predict the site; how good were they?
 
286
    # scenaria 1b: to what extent do the predictions and known agree?
 
287
    my $factor = Bio::Map::Mappable->new();
 
288
    my $pos3 = Bio::Map::Position->new(-map => $human, -element => $factor, -start => -25, -length => 10, -relative => $gene_rel);
 
289
    my $perfect_prediction = Bio::Map::Mappable->new();
 
290
    my $pos4 = Bio::Map::Position->new(-map => $human, -element => $perfect_prediction, -start => 25, -length => 10);
 
291
    my $good_prediction = Bio::Map::Mappable->new();
 
292
    my $pos5 = Bio::Map::Position->new(-map => $human, -element => $good_prediction, -start => 24, -length => 10);
 
293
    my $ok_prediction = Bio::Map::Mappable->new();
 
294
    my $pos6 = Bio::Map::Position->new(-map => $human, -element => $ok_prediction, -start => 20, -length => 10);
 
295
    my $bad_prediction = Bio::Map::Mappable->new();
 
296
    my $pos7 = Bio::Map::Position->new(-map => $human, -element => $bad_prediction, -start => 10, -length => 10);
 
297
    
 
298
    # scenario 2: we have the same program making a prediciton for a site
 
299
    # in two different species; is the predicted site conserved in terms of
 
300
    # its position relative to the gene?
 
301
    my $human_prediction = Bio::Map::Mappable->new();
 
302
    my $pos8 = Bio::Map::Position->new(-map => $human, -element => $human_prediction, -start => 25, -length => 10);
 
303
    my $mouse_prediction = Bio::Map::Mappable->new();
 
304
    my $pos9 = Bio::Map::Position->new(-map => $mouse, -element => $mouse_prediction, -start => 75, -length => 10);
 
305
    
 
306
    # Test the RangeI-related methods
 
307
    {
 
308
        # scenario 1a answers:
 
309
        ok $perfect_prediction->equals($factor);
 
310
        ok $perfect_prediction->contains($factor);
 
311
        ok ! $ok_prediction->equals($factor);
 
312
        ok $ok_prediction->overlaps($factor);
 
313
        ok ! $bad_prediction->overlaps($factor);
 
314
        ok $bad_prediction->less_than($factor);
 
315
        ok ! $bad_prediction->greater_than($factor);
 
316
        ok $factor->greater_than($bad_prediction);
 
317
        
 
318
        # scenario 1b answer:
 
319
        my $predictions = [$perfect_prediction, $good_prediction, $ok_prediction, $bad_prediction];
 
320
        ok my @groups = $factor->overlapping_groups($predictions, -relative => $gene_rel);
 
321
        is @groups, 2;
 
322
        is ${$groups[0]}[0], $pos7;
 
323
        is ${$groups[1]}[0], $pos6;
 
324
        is ${$groups[1]}[1], $pos5;
 
325
        is ${$groups[1]}[2]->toString($gene_rel), $pos4->toString($gene_rel);
 
326
        is ${$groups[1]}[3]->toString($gene_rel), $pos3->toString($gene_rel);
 
327
        ok my $di = $factor->disconnected_intersections($predictions, -relative => $gene_rel, -min_mappables_num => 3);
 
328
        my @di = $di->get_positions;
 
329
        is @di, 1;
 
330
        is $di[0]->toString, '-25..-21';
 
331
        ok my $du = $factor->disconnected_unions($predictions, -relative => $gene_rel, -min_mappables_num => 3);
 
332
        my @du = $du->get_positions;
 
333
        is @du, 1;
 
334
        is $du[0]->toString, '-30..-16';
 
335
        
 
336
        # test the flags on overlapping_groups a bit more
 
337
        @groups = $factor->overlapping_groups($predictions, -relative => $gene_rel, -min_pos_num => 2);
 
338
        is @groups, 1;
 
339
        @groups = $factor->overlapping_groups($predictions, -relative => $gene_rel, -min_pos_num => 1, -min_mappables_num => 2);
 
340
        is @groups, 1;
 
341
        @groups = $factor->overlapping_groups($predictions, -relative => $gene_rel, -min_pos_num => 1, -min_mappables_num => 1, -min_mappables_percent => 50);
 
342
        is @groups, 1;
 
343
        @groups = $factor->overlapping_groups($predictions, -relative => $gene_rel, -min_pos_num => 1, -min_mappables_num => 1, -min_mappables_percent => 5);
 
344
        is @groups, 2;
 
345
        @groups = $factor->overlapping_groups($predictions, -relative => $gene_rel, -require_self => 1);
 
346
        is @groups, 1;
 
347
        @groups = $factor->overlapping_groups($predictions, -relative => $gene_rel, -required => [$factor]);
 
348
        is @groups, 1;
 
349
        
 
350
        # scenario 2 answer:
 
351
        ok ! $human_prediction->overlaps($mouse_prediction);
 
352
        ok $human_prediction->overlaps($mouse_prediction, -relative => $gene_rel);
 
353
    }
 
354
}
 
355
 
 
356
# complex (multi-mappable, multi-map) test of disconnected_*
 
357
# and test Bio::Map::GeneMap, Bio::Map::Gene, Bio::Map::TranscriptionFactor,
 
358
# Bio::Map::GeneRelative, Bio::Map::GenePosition and Bio::Map::Prediction
 
359
use_ok('Bio::Map::Gene');
 
360
use_ok('Bio::Map::GeneMap');
 
361
use_ok('Bio::Map::TranscriptionFactor');
 
362
use_ok('Bio::Map::GeneRelative');
 
363
use_ok('Bio::Map::GenePosition');
 
364
use_ok('Bio::Map::Prediction');
 
365
{
 
366
    my @genes;
 
367
    my @predictions;
 
368
    
 
369
    $genes[0] = Bio::Map::Gene->get(-universal_name => 'gene1');
 
370
    $genes[1] = Bio::Map::Gene->get(-universal_name => 'gene2');
 
371
    $genes[2] = Bio::Map::Gene->get(-universal_name => 'gene3');
 
372
    Bio::Map::GeneMap->get(-gene => 'gene1',
 
373
                           -species => 'species1',
 
374
                           -upstream => 1000);
 
375
    Bio::Map::GeneMap->get(-gene => 'gene1',
 
376
                           -species => 'species2',
 
377
                           -upstream => 2000);
 
378
    Bio::Map::GeneMap->get(-gene => 'gene2',
 
379
                           -species => 'species1',
 
380
                           -upstream => 1000);
 
381
    Bio::Map::GeneMap->get(-gene => 'gene2',
 
382
                           -species => 'species2',
 
383
                           -upstream => 2000);
 
384
    Bio::Map::GeneMap->get(-gene => 'gene3',
 
385
                           -species => 'species1',
 
386
                           -upstream => 1000);
 
387
    Bio::Map::GeneMap->get(-gene => 'gene3',
 
388
                           -species => 'species2',
 
389
                           -upstream => 2000);
 
390
    
 
391
    $predictions[0] = Bio::Map::Prediction->new(-source => 'meme');
 
392
    Bio::Map::Position->new(-element => $predictions[0],
 
393
                            -map => Bio::Map::GeneMap->get(-gene => 'gene1', -species => 'species1'),
 
394
                            -start => 950,
 
395
                            -end => 960);
 
396
    Bio::Map::Position->new(-element => $predictions[0],
 
397
                            -map => Bio::Map::GeneMap->get(-gene => 'gene1', -species => 'species2'),
 
398
                            -start => 1950,
 
399
                            -end => 1960);
 
400
    Bio::Map::Position->new(-element => $predictions[0],
 
401
                            -map => Bio::Map::GeneMap->get(-gene => 'gene2', -species => 'species1'),
 
402
                            -start => 955,
 
403
                            -end => 965);
 
404
    Bio::Map::Position->new(-element => $predictions[0],
 
405
                            -map => Bio::Map::GeneMap->get(-gene => 'gene2', -species => 'species2'),
 
406
                            -start => 1955,
 
407
                            -end => 1965);
 
408
    $predictions[1] = Bio::Map::Prediction->new(-source => 'meme');
 
409
    Bio::Map::Position->new(-element => $predictions[1],
 
410
                            -map => Bio::Map::GeneMap->get(-gene => 'gene1', -species => 'species1'),
 
411
                            -start => 950,
 
412
                            -end => 960);
 
413
    Bio::Map::Position->new(-element => $predictions[1],
 
414
                            -map => Bio::Map::GeneMap->get(-gene => 'gene1', -species => 'species2'),
 
415
                            -start => 1950,
 
416
                            -end => 1960);
 
417
    Bio::Map::Position->new(-element => $predictions[1],
 
418
                            -map => Bio::Map::GeneMap->get(-gene => 'gene3', -species => 'species1'),
 
419
                            -start => 956,
 
420
                            -end => 966);
 
421
    Bio::Map::Position->new(-element => $predictions[1],
 
422
                            -map => Bio::Map::GeneMap->get(-gene => 'gene3', -species => 'species2'),
 
423
                            -start => 1956,
 
424
                            -end => 1966);
 
425
    
 
426
    Bio::Map::Position->new(-element => $predictions[0],
 
427
                            -map => Bio::Map::GeneMap->get(-gene => 'gene2', -species => 'species2'),
 
428
                            -start => 19850,
 
429
                            -end => 19860);
 
430
    Bio::Map::Position->new(-element => $predictions[1],
 
431
                            -map => Bio::Map::GeneMap->get(-gene => 'gene2', -species => 'species2'),
 
432
                            -start => 19850,
 
433
                            -end => 19860);
 
434
    
 
435
    my $rel = Bio::Map::GeneRelative->new(-gene => 0);
 
436
    my $di = Bio::Map::Mappable->disconnected_intersections(\@predictions,
 
437
                                                            -min_mappables_percent => 100,
 
438
                                                            -min_map_percent => 100,
 
439
                                                            -relative => $rel);
 
440
    my @positions = $di->get_positions;
 
441
    my $expected;
 
442
    $expected->{gene1}->{species1} = '-45..-41';
 
443
    $expected->{gene1}->{species2} = '-45..-41';
 
444
    $expected->{gene2}->{species1} = '-45..-41';
 
445
    $expected->{gene2}->{species2} = '-45..-41';
 
446
    $expected->{gene3}->{species1} = '-45..-41';
 
447
    $expected->{gene3}->{species2} = '-45..-41';
 
448
    foreach my $pos (@positions) {
 
449
        my $map = $pos->map;
 
450
        my $gname = $map ? $map->gene->universal_name : 'n/a';
 
451
        my $species = $map ? $map->species : 'n/a';
 
452
        if (defined $expected->{$gname}->{$species}) {
 
453
            is $expected->{$gname}->{$species}, $pos->toString;
 
454
            delete $expected->{$gname}->{$species};
 
455
        }
 
456
        unless (keys %{$expected->{$gname}} > 0) {
 
457
            delete $expected->{$gname};
 
458
        }
 
459
    }
 
460
    is scalar(keys %{$expected}), 0;
 
461
    
 
462
    # check we don't have any extraneous positions
 
463
    $expected = 8;
 
464
    foreach my $map ($genes[0]->known_maps) {
 
465
        foreach my $pos ($map->get_positions) {
 
466
            $expected--;
 
467
        }
 
468
    }
 
469
    is $expected, 0;
 
470
    $expected = 8;
 
471
    foreach my $map ($genes[1]->known_maps) {
 
472
        foreach my $pos ($map->get_positions) {
 
473
            $expected--;
 
474
        }
 
475
    }
 
476
    is $expected, 0;
 
477
}
 
478
 
 
479
{
 
480
        # make some maps that will represent an area around a particular gene in
 
481
        # particular species
 
482
    ok my $map1 = Bio::Map::GeneMap->get(-gene => 'BRCA2',
 
483
                                         -species => 'human',
 
484
                                         -description => 'breast cancer 2, early onset');
 
485
    ok my $gene = $map1->gene;
 
486
        my $map2 = Bio::Map::GeneMap->get(-gene => $gene,
 
487
                                      -species => 'mouse',
 
488
                                      -upstream => 500);
 
489
    is $map1->gene, $map2->gene;
 
490
    is $gene->universal_name, 'BRCA2';
 
491
    is $gene->description, 'breast cancer 2, early onset';
 
492
    is $map1->universal_name, 'BRCA2';
 
493
    is $map1->upstream, 1000;
 
494
    is $map2->upstream, 500;
 
495
    my $map3 = Bio::Map::GeneMap->get(-gene => 'BRCA2', -species => 'human');
 
496
    is $map3, $map1;
 
497
    is $map3->gene, $gene;
 
498
        
 
499
        # model a TF that binds 500bp upstream of the BRCA2 gene in humans and
 
500
        # 250bp upstream of BRCA2 in mice
 
501
        ok my $rel = Bio::Map::GeneRelative->new(-description => "gene start");
 
502
    ok my $tf = Bio::Map::TranscriptionFactor->get(-universal_name => 'tf1');
 
503
    is $tf->universal_name, 'tf1';
 
504
        Bio::Map::Position->new(-map => $map1,
 
505
                            -element => $tf,
 
506
                            -start => -450,
 
507
                            -length => 10,
 
508
                            -relative => $rel);
 
509
        Bio::Map::Position->new(-map => $map2,
 
510
                            -element => $tf,
 
511
                            -start => -200,
 
512
                            -length => 10,
 
513
                            -relative => $rel);
 
514
        
 
515
        # find out all the things that map near BRCA2 in all species
 
516
    my %answers = (human => ['human', 'tf1', -450, 'gene start', 551], mouse => ['mouse', 'tf1', -200, 'gene start', 301]);
 
517
        foreach my $map ($gene->known_maps) {
 
518
        my @answers = @{$answers{$map->species}};
 
519
                foreach my $thing ($map->get_elements) {
 
520
            next if $thing eq $gene;
 
521
            foreach my $pos ($thing->get_positions($map)) {
 
522
                is $map->species, shift @answers;
 
523
                is $thing->universal_name, shift @answers;
 
524
                is $pos->value, shift @answers;
 
525
                is $pos->relative->description, shift @answers;
 
526
                $pos->absolute(1);
 
527
                is $pos->start, shift @answers;
 
528
            }
 
529
                }
 
530
        is @answers, 0;
 
531
        delete $answers{$map->species};
 
532
        }
 
533
    is keys %answers, 0;
 
534
    
 
535
    # test getting abolute positions of things relative to things that don't
 
536
    # even exist in the map yet: 1st exon of default transcript
 
537
    ok $rel = Bio::Map::GeneRelative->new(-exon => [1]);
 
538
    my $pos = Bio::Map::Position->new(-map => $map1,
 
539
                                      -element => $tf,
 
540
                                      -start => 5,
 
541
                                      -length => 5,
 
542
                                      -relative => $rel);
 
543
    is $pos->start, 5;
 
544
    is $pos->relative->absolute_conversion($pos), 1006;
 
545
    is $pos->start($pos->absolute_relative), 1006;
 
546
    $pos->absolute(1);
 
547
    is $pos->start, 1006;
 
548
    is $pos->end, 1010;
 
549
    
 
550
    # now actually add some transcripts, exons, introns, coding etc. and retest
 
551
    ok my $trans = Bio::Map::GenePosition->new(-start => 0, -length => 700, -map => $map1, -type => 'transcript');
 
552
    ok $gene->add_transcript_position($trans);
 
553
    ok my $gene_pos = $gene->position($map1);
 
554
    is $gene_pos->start, 1001;
 
555
    is $gene_pos->end, 1700; # the gene position is big enough to hold the transcript
 
556
    
 
557
    $trans = Bio::Map::GenePosition->new(-start => 100, -length => 800, -map => $map1, -type => 'transcript');
 
558
    $gene->add_transcript_position($trans);
 
559
    is $gene_pos->end, 1900;
 
560
    is $gene->active_transcript($map1), 2;
 
561
    my @t_pos = $gene->get_transcript_positions($map1);
 
562
    is @t_pos, 2;
 
563
    
 
564
    # pos was relative to the active transcript, which has now changed...
 
565
    is $pos->start, 1106;
 
566
    
 
567
    # make a new one relative to an explicit transcript
 
568
    $rel = Bio::Map::GeneRelative->new(-exon => [1, 2]);
 
569
    my $pos2 = Bio::Map::Position->new(-map => $map1,
 
570
                            -element => $tf,
 
571
                            -start => 15,
 
572
                            -length => 15,
 
573
                            -relative => $rel);
 
574
    is $pos2->start, 15;
 
575
    $pos2->absolute(1);
 
576
    is $pos2->start, 1116;
 
577
    is $pos2->end, 1130;
 
578
    
 
579
    # which isn't affected by changing the active
 
580
    is $gene->active_transcript($map1, 1), 1;
 
581
    is $pos->start, 1006;
 
582
    is $pos2->start, 1116;
 
583
    
 
584
    $map1->get_position_handler->purge_positions($pos2);
 
585
    
 
586
    # add some exons to the first transcript
 
587
    ok my $exon = Bio::Map::GenePosition->new(-start => 0, -length => 100, -map => $map1, -type => 'exon');
 
588
    $gene->add_exon_position($exon, 1);
 
589
    is $pos->start, 1006;
 
590
    $exon->start(30); # not something you'd normally do; just for demo purposes
 
591
    is $exon->relative->absolute_conversion($exon), 1031;
 
592
    is $pos->start, 1036;
 
593
    
 
594
    # add another exon before the previous one - this will be considered exon 1
 
595
    my $exon1 = Bio::Map::GenePosition->new(-start => 0, -length => 20, -map => $map1, -type => 'exon');
 
596
    $gene->add_exon_position($exon1, 1);
 
597
    is $gene->get_exon_position($map1, 2), $exon;
 
598
    ok my @exons = $gene->get_exon_positions($map1);
 
599
    is @exons, 2;
 
600
    is $exons[0], $exon1;
 
601
    is $exons[1], $exon;
 
602
    is $pos->start, 1006;
 
603
    
 
604
    # add the intervening intron
 
605
    ok my $intron = Bio::Map::GenePosition->new(-start => 20, -length => 10, -map => $map1, -type => 'intron');
 
606
    ok ! $gene->get_intron_position($map1, 1);
 
607
    $gene->add_intron_position($intron, 1);
 
608
    is $gene->get_intron_position($map1, 1), $intron;
 
609
    ok ! $gene->get_intron_position($map1, 1, 2);
 
610
    ok ! $gene->get_intron_position($map1, 2);
 
611
    is $gene->get_intron_positions($map1), 1;
 
612
    is $intron->relative->absolute_conversion($intron), 1021;
 
613
    
 
614
    # like for exon 1, we can be relative to the coding region without
 
615
    # defining it
 
616
    $rel = Bio::Map::GeneRelative->new(-coding => 0);
 
617
    my $pos3 = Bio::Map::Position->new(-map => $map1,
 
618
                            -element => $tf,
 
619
                            -start => -10,
 
620
                            -length => 5,
 
621
                            -relative => $rel);
 
622
    is $pos3->start, -10;
 
623
    $pos3->absolute(1);
 
624
    is $pos3->start, 991;
 
625
    
 
626
    # add the coding region for transcript 1
 
627
    ok my $coding1a = Bio::Map::GenePosition->new(-start => 50, -length => 20, -map => $map1, -type => 'coding');
 
628
    $gene->coding_position($coding1a);
 
629
    is $pos3->start, 1041;
 
630
    
 
631
    # try adding another coding region to the same transcript: we can't, so
 
632
    # the existing coding is replaced
 
633
    my $coding1b = Bio::Map::GenePosition->new(-start => 60, -length => 20, -map => $map1, -type => 'coding');
 
634
    $gene->coding_position($coding1b);
 
635
    is $pos3->start, 1051;
 
636
    ok ! $coding1a->element;
 
637
    # try adding things without using the add_x_position methods of Gene
 
638
    #...
 
639
    
 
640
    # GenePositions can have sequence
 
641
    like $exon->seq, qr/N{70}/;
 
642
    my $pos4 = Bio::Map::GenePosition->new(-start => 200, -seq => 'ATGCCCAAAG', -map => $map1, -type => 'exon');
 
643
    is $pos4->seq, 'ATGCCCAAAG';
 
644
    $gene->add_exon_position($pos4, 1);
 
645
    is $gene->get_exon_positions($map1), 3;
 
646
    is $pos4->length, 10;
 
647
    $pos4->absolute(1);
 
648
    is $pos4->end, 1210;
 
649
    is $pos4->seq('ATGCC'), 'ATGCC';
 
650
    is $pos4->length, 5;
 
651
    is $pos4->end, 1205;
 
652
    
 
653
    # so can GeneMaps
 
654
    my $map4 = Bio::Map::GeneMap->get(-gene => $gene,
 
655
                                      -species => 'chicken',
 
656
                                      -seq => 'ATGCCCAAAG');
 
657
    like $map4->seq, qr/ATGCCCAAAGN{991}/;
 
658
    is $map4->subseq(3,6), 'GCCC';
 
659
    is $map4->subseq(9,15), 'AGNNNNN'; # subseq is within map but beyond supplied seq, pads with Ns
 
660
    
 
661
    # map sequence can be built from the sequence of PositionWithSequences on the map
 
662
    my $pos5 = Bio::Map::PositionWithSequence->new(-start => 11, -seq => 'ATG', -map => $map4);
 
663
    is $pos5->seq, 'ATG';
 
664
    is $map4->subseq(9,15), 'AGATGNN';
 
665
    
 
666
    SKIP: {
 
667
        test_skip(-tests => 19,
 
668
                  -requires_modules => [qw(Bio::Tools::Run::Ensembl Bio::EnsEMBL::Registry)],
 
669
                  -requires_networking => 1);
 
670
        
 
671
        # make transcript, coding, exon, intron positions on all maps for gene,
 
672
        # purging manually added GenePositions
 
673
        my $success = $gene->set_from_db;
 
674
        
 
675
        skip('Failed to retreive anything from Ensembl; not sure why', 19) unless $success;
 
676
        
 
677
        is $gene->get_transcript_position($map1)->toString($pos->absolute_relative), '1001..85193';
 
678
        is $gene->get_transcript_position($map2)->toString($pos->absolute_relative), '501..47617';
 
679
        is $gene->get_transcript_position($map4)->toString($pos->absolute_relative), '1373..37665';
 
680
        like $gene->description($map1), qr/Breast cancer type 2 susceptibility protein \(Fanconi anemia group D1 protein\)/;
 
681
        is $gene->display_id($map1), 'ENSG00000139618';
 
682
        is $gene->display_id($map2), 'ENSMUSG00000041147';
 
683
        is $gene->display_id($map4), 'ENSGALG00000017073';
 
684
        is $gene->display_xref($map4), 'NP_989607.1';
 
685
        is $gene->external_name($map1), 'BRCA2';
 
686
        is $gene->biotype($map2), 'protein_coding';
 
687
        is $gene->source($map4), 'ensembl';
 
688
        
 
689
        # we can add to a new map and the database info will be automatically there
 
690
        my $species = Bio::Species->new(-name => 'dog');
 
691
        $species->db_handle(Bio::DB::Taxonomy->new(-source => 'entrez'));
 
692
        my $map5 = Bio::Map::GeneMap->get(-gene => $gene, -species => $species);
 
693
        is $gene->display_id($map5), 'ENSCAFG00000006383';
 
694
        
 
695
        # now the gene has a database connection, its maps and positions can get sequence
 
696
        ok my $seq = $map1->seq;
 
697
        is length($seq), 85193;
 
698
        is substr($seq, 0, 20), 'AGAACCAACGAATTCGGAGA'; # start of upstream
 
699
        is substr($seq, -20, 20), 'CTTTCAAATTGGCACTGATT'; # end of gene since no downstream
 
700
        is substr($map1->subseq($gene->coding_position($map1)), 0, 3), 'ATG';
 
701
        my $exon1_str = 'GTGGCGCGAGCTTCTGAAACTAGGCGGCAGAGGCGGAGCCGCTGTGGCACTGCTGCGCCTCTGCTGCGCCTCGGGTGTCTTTTGCGGCGGTGGGTCGCCGCCGGGAGAAGCGTGAGGGGACAGATTTGTGACCGGCGCGGTTTTTGTCAGCTTACTCCGGCCAAAAAAGAACTGCACCTCTGGAGCGG';
 
702
        my $exon1_pos = $gene->get_exon_position($map1, 1);
 
703
        is $map1->subseq($exon1_pos), $exon1_str;
 
704
        is $exon1_pos->seq, $exon1_str;
 
705
    }
 
706
    
 
707
    # test a gene with multiple transcripts...
 
708
    #...
 
709
}
 
710
 
 
711
# test predictor<->map integration
 
712
# this seems to work and give an ok looking result, but the tests are very slow
 
713
# to complete and the results as yet unvalidated
 
714
if (0) {
 
715
    # we respresent all the genes of interest in species of interest as Genes on
 
716
    # GeneMaps with attached upstream sequence
 
717
    use_ok('Bio::SeqIO');
 
718
    my @genes;
 
719
    my $seqs_dir = test_input_file('map_hem');
 
720
    opendir(SEQSDIR, $seqs_dir) or die "couldn't open seqs dir '$seqs_dir'\n";
 
721
    while (my $thing = readdir(SEQSDIR)) {
 
722
        next unless $thing =~ /(\w+\d+)\.ups\.fa_$/;
 
723
        my $gene_name = $1;
 
724
        
 
725
        my $gene = Bio::Map::Gene->get(-universal_name => $gene_name);
 
726
        push(@genes, $gene);
 
727
        
 
728
        my $seqin = Bio::SeqIO->new(-file => "$seqs_dir/$thing", -format => "fasta");
 
729
        my $seqout = Bio::SeqIO->new(-file => ">$seqs_dir/$thing.revcom", -format => "fasta");
 
730
        while (my $seq = $seqin->next_seq) {
 
731
            my $id = $seq->id;
 
732
            my ($species) = $id =~ /^[a-z]+_([a-z]+)/i;
 
733
            
 
734
            # skip Scas and Sklu
 
735
            next if ($species eq 'Scas' || $species eq 'Sklu');
 
736
            $seqout->write_seq($seq->revcom);
 
737
            
 
738
            # (we don't need to do anything with the return value of this get()
 
739
            # since we've already stored the Bio::Map::Gene above, which knows
 
740
            # about the maps it is on as soon as they're created)
 
741
            Bio::Map::GeneMap->get(-gene => $gene_name,
 
742
                                   -species => $species,
 
743
                                   -seq => $seq->revcom->seq,
 
744
                                   -upstream => $seq->length);
 
745
        }
 
746
    }
 
747
    closedir(SEQSDIR);
 
748
    
 
749
    # then we supply these Genes to a prediction program, in this case Meme,
 
750
    # adding the predictions to the maps (we're doing all pairwise-combos of
 
751
    # genes here)
 
752
    my @predicitons_of_interest;
 
753
    @genes = sort { $a->universal_name cmp $b->universal_name } @genes;
 
754
 
 
755
    #use_ok('Bio::Tools::Run::Meme');
 
756
    #my %params = (dna => 1, mod => "oops", revcomp => 1, nmotifs => 5, bfile => "$seqs_dir/yeast.nc.1.freq", maxw => 20);
 
757
    #my $factory = Bio::Tools::Run::Meme->new(%params);
 
758
    #my %predictions; # not used for anything here, but this is how we might store all our predictions
 
759
    #
 
760
    #for my $i (0..$#genes) {
 
761
    #    my $gene_a = $genes[$i];
 
762
    #    my $gene_name_a = $gene_a->universal_name;
 
763
    #    
 
764
    #    my $done = 0;
 
765
    #    for my $j (($i+1)..$#genes) {
 
766
    #        my $gene_b = $genes[$j];
 
767
    #        my $gene_name_b = $gene_b->universal_name;
 
768
    #        
 
769
    #        my $prediction = $factory->run($gene_a, $gene_b);
 
770
    #        $prediction->name("$gene_name_a vs $gene_name_b in yeasts");
 
771
    #        print "got prediction for ", $prediction->name, ":\n";
 
772
    #        foreach my $pos ($prediction->get_positions) {
 
773
    #            print "  pos ", $pos->toString, " on map for gene ", $pos->map->gene->universal_name, " and species ", $pos->map->species, "\n";
 
774
    #        }
 
775
    #        
 
776
    #        $predictions{$gene_name_a}->{$gene_name_b} = $prediction;
 
777
    #        push(@predicitons_of_interest, $prediction) if $gene_name_a eq 'HEM1';
 
778
    #        
 
779
    #        $done++;
 
780
    #        #last if $done == 2; # temp for testing
 
781
    #    }
 
782
    #    
 
783
    #    #last; # shortcut for testing, since we're only interested in predictions featuring MEM1 anyway
 
784
    #}
 
785
    
 
786
    # shortcut for testing - avoid actually calling meme, just create the results directly
 
787
    # $pred_num = 0; while (<>) { if (/got prediction/) { $pred_num++; print "my \$pred$pred_num = Bio::Map::Prediction->new(-source => \"meme\");\n"; } else { ($start, $end, $gene, $spe) = $_ =~ /(\d+)\.\.(\d+) on map for gene (\S+) and species (\S+)/; print "Bio::Map::Position->new(-element => \$pred$pred_num, -map => Bio::Map::GeneMap->get(-gene => \"$gene\", -species => \"$spe\"), -start => $start, -end => $end);\n"; } }'
 
788
    my $pred1 = Bio::Map::Prediction->new(-source => "meme");
 
789
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 51, -end => 70);
 
790
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 60, -end => 79);
 
791
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 90, -end => 109);
 
792
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 96, -end => 115);
 
793
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 97, -end => 115);
 
794
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 100, -end => 118);
 
795
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 100, -end => 118);
 
796
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 102, -end => 120);
 
797
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 103, -end => 121);
 
798
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 117, -end => 136);
 
799
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 120, -end => 139);
 
800
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 120, -end => 139);
 
801
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 122, -end => 141);
 
802
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 123, -end => 142);
 
803
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 133, -end => 152);
 
804
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 173, -end => 192);
 
805
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 175, -end => 194);
 
806
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 176, -end => 195);
 
807
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 178, -end => 197);
 
808
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 180, -end => 199);
 
809
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 197, -end => 216);
 
810
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 199, -end => 218);
 
811
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 199, -end => 218);
 
812
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 202, -end => 221);
 
813
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 204, -end => 223);
 
814
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 217, -end => 236);
 
815
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 219, -end => 238);
 
816
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 275, -end => 293);
 
817
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 275, -end => 293);
 
818
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 299, -end => 318);
 
819
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 299, -end => 318);
 
820
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 302, -end => 321);
 
821
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 303, -end => 322);
 
822
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 303, -end => 322);
 
823
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 304, -end => 323);
 
824
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 331, -end => 350);
 
825
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 335, -end => 354);
 
826
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 337, -end => 356);
 
827
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 485, -end => 503);
 
828
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 489, -end => 507);
 
829
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 604, -end => 623);
 
830
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 728, -end => 747);
 
831
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 796, -end => 815);
 
832
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 807, -end => 826);
 
833
    Bio::Map::Position->new(-element => $pred1, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 810, -end => 829);
 
834
    my $pred2 = Bio::Map::Prediction->new(-source => "meme");
 
835
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 108, -end => 127);
 
836
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 111, -end => 130);
 
837
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 111, -end => 130);
 
838
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 113, -end => 132);
 
839
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 114, -end => 133);
 
840
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 128, -end => 147);
 
841
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 131, -end => 150);
 
842
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 131, -end => 150);
 
843
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 133, -end => 152);
 
844
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 134, -end => 153);
 
845
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 167, -end => 186);
 
846
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 169, -end => 188);
 
847
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 170, -end => 189);
 
848
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 172, -end => 191);
 
849
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 174, -end => 193);
 
850
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 196, -end => 215);
 
851
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 198, -end => 217);
 
852
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 198, -end => 217);
 
853
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 201, -end => 220);
 
854
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 203, -end => 222);
 
855
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 272, -end => 291);
 
856
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 277, -end => 296);
 
857
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 277, -end => 296);
 
858
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 278, -end => 297);
 
859
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 282, -end => 301);
 
860
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 386, -end => 405);
 
861
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 388, -end => 407);
 
862
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 388, -end => 407);
 
863
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 394, -end => 413);
 
864
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 642, -end => 661);
 
865
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 643, -end => 662);
 
866
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 645, -end => 664);
 
867
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 650, -end => 669);
 
868
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 669, -end => 688);
 
869
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 670, -end => 689);
 
870
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 673, -end => 692);
 
871
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 676, -end => 695);
 
872
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 710, -end => 729);
 
873
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 711, -end => 730);
 
874
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 717, -end => 736);
 
875
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 721, -end => 740);
 
876
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 805, -end => 824);
 
877
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 807, -end => 826);
 
878
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 811, -end => 830);
 
879
    Bio::Map::Position->new(-element => $pred2, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 815, -end => 834);
 
880
    my $pred3 = Bio::Map::Prediction->new(-source => "meme");
 
881
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 15, -end => 34);
 
882
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 50, -end => 69);
 
883
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 50, -end => 69);
 
884
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 65, -end => 84);
 
885
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 70, -end => 89);
 
886
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 70, -end => 89);
 
887
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 72, -end => 91);
 
888
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 94, -end => 113);
 
889
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 101, -end => 120);
 
890
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 104, -end => 123);
 
891
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 104, -end => 123);
 
892
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 106, -end => 125);
 
893
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 107, -end => 126);
 
894
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 107, -end => 126);
 
895
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 123, -end => 142);
 
896
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 126, -end => 145);
 
897
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 126, -end => 145);
 
898
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 128, -end => 147);
 
899
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 129, -end => 148);
 
900
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 132, -end => 151);
 
901
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 133, -end => 152);
 
902
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 138, -end => 157);
 
903
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 169, -end => 188);
 
904
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 170, -end => 189);
 
905
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 175, -end => 194);
 
906
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 177, -end => 196);
 
907
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 191, -end => 210);
 
908
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 192, -end => 211);
 
909
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 192, -end => 211);
 
910
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 194, -end => 213);
 
911
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 194, -end => 213);
 
912
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 197, -end => 216);
 
913
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 199, -end => 218);
 
914
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 199, -end => 218);
 
915
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 262, -end => 281);
 
916
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 272, -end => 291);
 
917
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 277, -end => 296);
 
918
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 277, -end => 296);
 
919
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 278, -end => 297);
 
920
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 282, -end => 301);
 
921
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 316, -end => 335);
 
922
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 319, -end => 338);
 
923
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 320, -end => 339);
 
924
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 320, -end => 339);
 
925
    Bio::Map::Position->new(-element => $pred3, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 321, -end => 340);
 
926
    my $pred4 = Bio::Map::Prediction->new(-source => "meme");
 
927
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 106, -end => 125);
 
928
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 109, -end => 128);
 
929
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 109, -end => 128);
 
930
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 111, -end => 130);
 
931
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 112, -end => 131);
 
932
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 142, -end => 161);
 
933
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 147, -end => 166);
 
934
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 153, -end => 172);
 
935
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 155, -end => 174);
 
936
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 169, -end => 188);
 
937
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 202, -end => 221);
 
938
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 211, -end => 230);
 
939
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 212, -end => 231);
 
940
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 214, -end => 233);
 
941
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 228, -end => 247);
 
942
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 261, -end => 280);
 
943
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 281, -end => 300);
 
944
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 283, -end => 302);
 
945
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 286, -end => 305);
 
946
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 286, -end => 305);
 
947
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 288, -end => 307);
 
948
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 306, -end => 325);
 
949
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 308, -end => 327);
 
950
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 310, -end => 329);
 
951
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 311, -end => 330);
 
952
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 313, -end => 332);
 
953
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 346, -end => 365);
 
954
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 347, -end => 366);
 
955
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 349, -end => 368);
 
956
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 349, -end => 368);
 
957
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 352, -end => 371);
 
958
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 458, -end => 477);
 
959
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 460, -end => 479);
 
960
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 461, -end => 480);
 
961
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 464, -end => 483);
 
962
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 466, -end => 485);
 
963
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 505, -end => 524);
 
964
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 509, -end => 528);
 
965
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 513, -end => 532);
 
966
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 515, -end => 534);
 
967
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 517, -end => 536);
 
968
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 529, -end => 548);
 
969
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 549, -end => 568);
 
970
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 553, -end => 572);
 
971
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 555, -end => 574);
 
972
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 558, -end => 577);
 
973
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 573, -end => 592);
 
974
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 574, -end => 593);
 
975
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 576, -end => 595);
 
976
    Bio::Map::Position->new(-element => $pred4, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 578, -end => 597);
 
977
    my $pred5 = Bio::Map::Prediction->new(-source => "meme");
 
978
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 88, -end => 107);
 
979
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 104, -end => 114);
 
980
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 107, -end => 117);
 
981
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 107, -end => 117);
 
982
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 109, -end => 119);
 
983
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 110, -end => 120);
 
984
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 115, -end => 134);
 
985
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 118, -end => 137);
 
986
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 118, -end => 137);
 
987
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 120, -end => 139);
 
988
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 121, -end => 140);
 
989
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 121, -end => 140);
 
990
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 137, -end => 156);
 
991
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 140, -end => 159);
 
992
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 140, -end => 159);
 
993
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 142, -end => 161);
 
994
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 144, -end => 163);
 
995
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 153, -end => 172);
 
996
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 165, -end => 184);
 
997
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 167, -end => 186);
 
998
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 168, -end => 187);
 
999
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 170, -end => 189);
 
1000
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 172, -end => 191);
 
1001
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 281, -end => 300);
 
1002
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 284, -end => 303);
 
1003
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 286, -end => 305);
 
1004
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 289, -end => 308);
 
1005
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 289, -end => 308);
 
1006
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 291, -end => 310);
 
1007
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 311, -end => 321);
 
1008
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 455, -end => 474);
 
1009
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 460, -end => 479);
 
1010
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 744, -end => 763);
 
1011
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 780, -end => 799);
 
1012
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 804, -end => 823);
 
1013
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 804, -end => 823);
 
1014
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 805, -end => 824);
 
1015
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 805, -end => 824);
 
1016
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 806, -end => 825);
 
1017
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 824, -end => 834);
 
1018
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 824, -end => 834);
 
1019
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 825, -end => 835);
 
1020
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 825, -end => 835);
 
1021
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 842, -end => 861);
 
1022
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 846, -end => 865);
 
1023
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 847, -end => 866);
 
1024
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 847, -end => 866);
 
1025
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 885, -end => 904);
 
1026
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 890, -end => 909);
 
1027
    Bio::Map::Position->new(-element => $pred5, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 912, -end => 931);
 
1028
    my $pred6 = Bio::Map::Prediction->new(-source => "meme");
 
1029
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 73, -end => 92);
 
1030
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 76, -end => 95);
 
1031
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 77, -end => 96);
 
1032
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 78, -end => 97);
 
1033
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 78, -end => 97);
 
1034
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 118, -end => 137);
 
1035
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 134, -end => 153);
 
1036
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 137, -end => 156);
 
1037
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 137, -end => 156);
 
1038
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 137, -end => 156);
 
1039
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 138, -end => 157);
 
1040
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 139, -end => 158);
 
1041
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 141, -end => 160);
 
1042
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 144, -end => 163);
 
1043
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 144, -end => 163);
 
1044
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 145, -end => 164);
 
1045
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 157, -end => 176);
 
1046
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 164, -end => 183);
 
1047
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 164, -end => 183);
 
1048
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 165, -end => 184);
 
1049
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 195, -end => 214);
 
1050
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 197, -end => 216);
 
1051
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 197, -end => 216);
 
1052
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 200, -end => 219);
 
1053
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 202, -end => 221);
 
1054
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 300, -end => 319);
 
1055
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 302, -end => 321);
 
1056
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 304, -end => 323);
 
1057
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 305, -end => 324);
 
1058
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 307, -end => 326);
 
1059
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 333, -end => 352);
 
1060
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 334, -end => 353);
 
1061
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 336, -end => 355);
 
1062
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 336, -end => 355);
 
1063
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 337, -end => 356);
 
1064
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 362, -end => 381);
 
1065
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 363, -end => 382);
 
1066
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 365, -end => 384);
 
1067
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 365, -end => 384);
 
1068
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 368, -end => 387);
 
1069
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 475, -end => 494);
 
1070
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 476, -end => 495);
 
1071
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 477, -end => 496);
 
1072
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 478, -end => 497);
 
1073
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 479, -end => 498);
 
1074
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 707, -end => 726);
 
1075
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 708, -end => 727);
 
1076
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 709, -end => 728);
 
1077
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 709, -end => 728);
 
1078
    Bio::Map::Position->new(-element => $pred6, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 709, -end => 728);
 
1079
    my $pred7 = Bio::Map::Prediction->new(-source => "meme");
 
1080
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 91, -end => 110);
 
1081
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 99, -end => 118);
 
1082
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 100, -end => 119);
 
1083
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 104, -end => 123);
 
1084
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 117, -end => 136);
 
1085
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 118, -end => 137);
 
1086
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 121, -end => 140);
 
1087
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 121, -end => 140);
 
1088
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 123, -end => 142);
 
1089
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 124, -end => 143);
 
1090
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 164, -end => 183);
 
1091
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 166, -end => 185);
 
1092
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 167, -end => 186);
 
1093
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 169, -end => 188);
 
1094
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 171, -end => 190);
 
1095
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 186, -end => 205);
 
1096
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 188, -end => 207);
 
1097
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 188, -end => 207);
 
1098
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 191, -end => 210);
 
1099
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 193, -end => 212);
 
1100
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 216, -end => 235);
 
1101
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 218, -end => 237);
 
1102
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 223, -end => 242);
 
1103
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 224, -end => 243);
 
1104
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 227, -end => 246);
 
1105
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 285, -end => 304);
 
1106
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 287, -end => 306);
 
1107
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 292, -end => 311);
 
1108
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 293, -end => 312);
 
1109
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 296, -end => 315);
 
1110
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 296, -end => 315);
 
1111
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 300, -end => 319);
 
1112
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 300, -end => 319);
 
1113
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 305, -end => 324);
 
1114
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 308, -end => 327);
 
1115
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 317, -end => 336);
 
1116
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 320, -end => 339);
 
1117
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 321, -end => 340);
 
1118
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 321, -end => 340);
 
1119
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 322, -end => 341);
 
1120
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 378, -end => 397);
 
1121
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 381, -end => 400);
 
1122
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 384, -end => 403);
 
1123
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 386, -end => 405);
 
1124
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 390, -end => 409);
 
1125
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Skud"), -start => 422, -end => 441);
 
1126
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Smik"), -start => 423, -end => 442);
 
1127
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Scer"), -start => 423, -end => 442);
 
1128
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Spar"), -start => 425, -end => 444);
 
1129
    Bio::Map::Position->new(-element => $pred7, -map => Bio::Map::GeneMap->get(-gene => "HEM1", -species => "Sbay"), -start => 427, -end => 446);
 
1130
    my $pred8 = Bio::Map::Prediction->new(-source => "meme");
 
1131
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 53, -end => 72);
 
1132
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 62, -end => 81);
 
1133
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 92, -end => 111);
 
1134
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 109, -end => 123);
 
1135
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 118, -end => 132);
 
1136
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 209, -end => 223);
 
1137
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 243, -end => 259);
 
1138
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 247, -end => 263);
 
1139
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 253, -end => 269);
 
1140
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 255, -end => 271);
 
1141
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 325, -end => 344);
 
1142
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 378, -end => 397);
 
1143
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 463, -end => 482);
 
1144
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 465, -end => 484);
 
1145
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 510, -end => 529);
 
1146
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 550, -end => 566);
 
1147
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 642, -end => 660);
 
1148
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 643, -end => 661);
 
1149
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 645, -end => 663);
 
1150
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 650, -end => 668);
 
1151
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 672, -end => 686);
 
1152
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 673, -end => 687);
 
1153
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 676, -end => 690);
 
1154
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 679, -end => 693);
 
1155
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 714, -end => 732);
 
1156
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 714, -end => 732);
 
1157
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 731, -end => 749);
 
1158
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 751, -end => 767);
 
1159
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 756, -end => 772);
 
1160
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 761, -end => 780);
 
1161
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 763, -end => 782);
 
1162
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 769, -end => 788);
 
1163
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 773, -end => 792);
 
1164
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 784, -end => 800);
 
1165
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 814, -end => 833);
 
1166
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 816, -end => 835);
 
1167
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 820, -end => 839);
 
1168
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 824, -end => 843);
 
1169
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 856, -end => 870);
 
1170
    Bio::Map::Position->new(-element => $pred8, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 912, -end => 930);
 
1171
    my $pred9 = Bio::Map::Prediction->new(-source => "meme");
 
1172
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 10, -end => 28);
 
1173
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 10, -end => 28);
 
1174
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 24, -end => 42);
 
1175
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 49, -end => 63);
 
1176
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 58, -end => 72);
 
1177
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 67, -end => 85);
 
1178
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 96, -end => 110);
 
1179
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 135, -end => 149);
 
1180
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 136, -end => 150);
 
1181
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 140, -end => 154);
 
1182
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 141, -end => 155);
 
1183
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 166, -end => 184);
 
1184
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 167, -end => 185);
 
1185
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 172, -end => 190);
 
1186
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 174, -end => 192);
 
1187
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 188, -end => 202);
 
1188
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 189, -end => 203);
 
1189
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 192, -end => 206);
 
1190
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 196, -end => 210);
 
1191
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 232, -end => 246);
 
1192
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 234, -end => 248);
 
1193
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 234, -end => 248);
 
1194
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 260, -end => 274);
 
1195
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 273, -end => 287);
 
1196
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 273, -end => 287);
 
1197
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 282, -end => 296);
 
1198
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 493, -end => 511);
 
1199
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 540, -end => 554);
 
1200
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 682, -end => 696);
 
1201
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 689, -end => 707);
 
1202
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 691, -end => 709);
 
1203
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 739, -end => 757);
 
1204
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 742, -end => 760);
 
1205
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 742, -end => 756);
 
1206
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 743, -end => 761);
 
1207
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 745, -end => 759);
 
1208
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 774, -end => 788);
 
1209
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 814, -end => 832);
 
1210
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 824, -end => 842);
 
1211
    Bio::Map::Position->new(-element => $pred9, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 914, -end => 928);
 
1212
    my $pred10 = Bio::Map::Prediction->new(-source => "meme");
 
1213
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 15, -end => 34);
 
1214
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 51, -end => 70);
 
1215
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 56, -end => 75);
 
1216
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 61, -end => 80);
 
1217
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 65, -end => 84);
 
1218
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 76, -end => 95);
 
1219
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 118, -end => 137);
 
1220
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 138, -end => 157);
 
1221
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 143, -end => 162);
 
1222
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 149, -end => 168);
 
1223
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 151, -end => 170);
 
1224
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 165, -end => 184);
 
1225
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 185, -end => 204);
 
1226
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 199, -end => 218);
 
1227
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 208, -end => 227);
 
1228
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 209, -end => 228);
 
1229
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 211, -end => 230);
 
1230
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 212, -end => 231);
 
1231
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 225, -end => 244);
 
1232
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 387, -end => 406);
 
1233
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 389, -end => 408);
 
1234
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 509, -end => 528);
 
1235
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 533, -end => 552);
 
1236
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 545, -end => 564);
 
1237
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 553, -end => 572);
 
1238
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 557, -end => 576);
 
1239
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 559, -end => 578);
 
1240
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 562, -end => 581);
 
1241
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 577, -end => 596);
 
1242
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 578, -end => 597);
 
1243
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 580, -end => 599);
 
1244
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 582, -end => 601);
 
1245
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 610, -end => 629);
 
1246
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 675, -end => 694);
 
1247
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 676, -end => 695);
 
1248
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 694, -end => 713);
 
1249
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 747, -end => 766);
 
1250
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 750, -end => 769);
 
1251
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 779, -end => 798);
 
1252
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 808, -end => 827);
 
1253
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 824, -end => 843);
 
1254
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 831, -end => 850);
 
1255
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 834, -end => 853);
 
1256
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 859, -end => 878);
 
1257
    Bio::Map::Position->new(-element => $pred10, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 932, -end => 951);
 
1258
    my $pred11 = Bio::Map::Prediction->new(-source => "meme");
 
1259
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 40, -end => 59);
 
1260
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 86, -end => 105);
 
1261
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 100, -end => 119);
 
1262
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 129, -end => 148);
 
1263
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 132, -end => 151);
 
1264
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 218, -end => 231);
 
1265
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 265, -end => 284);
 
1266
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 306, -end => 319);
 
1267
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 366, -end => 385);
 
1268
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 370, -end => 389);
 
1269
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 422, -end => 435);
 
1270
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 425, -end => 444);
 
1271
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 428, -end => 447);
 
1272
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 501, -end => 514);
 
1273
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 508, -end => 521);
 
1274
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 526, -end => 539);
 
1275
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 557, -end => 570);
 
1276
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 697, -end => 710);
 
1277
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 699, -end => 712);
 
1278
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 732, -end => 745);
 
1279
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 747, -end => 760);
 
1280
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 767, -end => 786);
 
1281
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 780, -end => 799);
 
1282
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 781, -end => 800);
 
1283
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 781, -end => 800);
 
1284
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 781, -end => 800);
 
1285
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 782, -end => 801);
 
1286
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 802, -end => 821);
 
1287
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 802, -end => 821);
 
1288
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 802, -end => 821);
 
1289
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 803, -end => 822);
 
1290
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 803, -end => 822);
 
1291
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 804, -end => 823);
 
1292
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 812, -end => 831);
 
1293
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 822, -end => 841);
 
1294
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 822, -end => 841);
 
1295
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 823, -end => 842);
 
1296
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 823, -end => 842);
 
1297
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 842, -end => 855);
 
1298
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 846, -end => 859);
 
1299
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 847, -end => 860);
 
1300
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 847, -end => 860);
 
1301
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 863, -end => 876);
 
1302
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 910, -end => 923);
 
1303
    Bio::Map::Position->new(-element => $pred11, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 911, -end => 924);
 
1304
    my $pred12 = Bio::Map::Prediction->new(-source => "meme");
 
1305
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 10, -end => 29);
 
1306
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 13, -end => 32);
 
1307
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 107, -end => 126);
 
1308
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 126, -end => 145);
 
1309
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 130, -end => 149);
 
1310
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 133, -end => 152);
 
1311
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 133, -end => 152);
 
1312
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 134, -end => 153);
 
1313
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 149, -end => 168);
 
1314
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 156, -end => 175);
 
1315
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 156, -end => 175);
 
1316
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 157, -end => 176);
 
1317
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 306, -end => 325);
 
1318
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 316, -end => 335);
 
1319
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 367, -end => 386);
 
1320
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 491, -end => 510);
 
1321
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 521, -end => 540);
 
1322
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 522, -end => 541);
 
1323
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 522, -end => 541);
 
1324
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 524, -end => 543);
 
1325
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 525, -end => 544);
 
1326
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 533, -end => 552);
 
1327
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 549, -end => 568);
 
1328
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 552, -end => 571);
 
1329
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 552, -end => 571);
 
1330
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 553, -end => 572);
 
1331
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 554, -end => 573);
 
1332
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 605, -end => 624);
 
1333
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 720, -end => 739);
 
1334
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 721, -end => 740);
 
1335
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 722, -end => 741);
 
1336
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 722, -end => 741);
 
1337
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 722, -end => 741);
 
1338
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 730, -end => 749);
 
1339
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 733, -end => 752);
 
1340
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 761, -end => 780);
 
1341
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 763, -end => 782);
 
1342
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 767, -end => 786);
 
1343
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 808, -end => 827);
 
1344
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 811, -end => 830);
 
1345
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 838, -end => 857);
 
1346
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 868, -end => 887);
 
1347
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 893, -end => 912);
 
1348
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 923, -end => 942);
 
1349
    Bio::Map::Position->new(-element => $pred12, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 932, -end => 951);
 
1350
    my $pred13 = Bio::Map::Prediction->new(-source => "meme");
 
1351
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 40, -end => 59);
 
1352
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 59, -end => 78);
 
1353
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 97, -end => 116);
 
1354
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 133, -end => 152);
 
1355
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 143, -end => 162);
 
1356
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 149, -end => 168);
 
1357
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 169, -end => 188);
 
1358
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 212, -end => 230);
 
1359
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 222, -end => 241);
 
1360
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 224, -end => 243);
 
1361
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 229, -end => 248);
 
1362
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 230, -end => 249);
 
1363
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 233, -end => 252);
 
1364
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 262, -end => 281);
 
1365
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 262, -end => 281);
 
1366
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 275, -end => 294);
 
1367
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 277, -end => 296);
 
1368
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 282, -end => 301);
 
1369
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 283, -end => 302);
 
1370
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 286, -end => 305);
 
1371
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 331, -end => 349);
 
1372
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 332, -end => 351);
 
1373
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 334, -end => 352);
 
1374
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 336, -end => 355);
 
1375
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 338, -end => 357);
 
1376
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 339, -end => 357);
 
1377
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 339, -end => 357);
 
1378
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 343, -end => 361);
 
1379
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 360, -end => 379);
 
1380
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 363, -end => 382);
 
1381
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 364, -end => 383);
 
1382
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 369, -end => 388);
 
1383
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 371, -end => 390);
 
1384
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 385, -end => 404);
 
1385
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 388, -end => 407);
 
1386
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 391, -end => 410);
 
1387
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 393, -end => 412);
 
1388
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 397, -end => 416);
 
1389
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 427, -end => 445);
 
1390
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 430, -end => 448);
 
1391
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Skud"), -start => 491, -end => 510);
 
1392
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Scer"), -start => 533, -end => 552);
 
1393
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 598, -end => 617);
 
1394
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Sbay"), -start => 717, -end => 735);
 
1395
    Bio::Map::Position->new(-element => $pred13, -map => Bio::Map::GeneMap->get(-gene => "HEM12", -species => "Spar"), -start => 862, -end => 881);
 
1396
    my $pred14 = Bio::Map::Prediction->new(-source => "meme");
 
1397
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 91, -end => 110);
 
1398
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 105, -end => 122);
 
1399
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 109, -end => 126);
 
1400
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 112, -end => 129);
 
1401
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 113, -end => 130);
 
1402
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 136, -end => 155);
 
1403
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 137, -end => 156);
 
1404
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 141, -end => 160);
 
1405
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 142, -end => 161);
 
1406
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 164, -end => 183);
 
1407
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 168, -end => 187);
 
1408
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 172, -end => 191);
 
1409
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 174, -end => 193);
 
1410
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 175, -end => 189);
 
1411
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 176, -end => 190);
 
1412
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 181, -end => 195);
 
1413
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 183, -end => 197);
 
1414
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 233, -end => 252);
 
1415
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 235, -end => 254);
 
1416
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 235, -end => 254);
 
1417
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 240, -end => 259);
 
1418
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 262, -end => 281);
 
1419
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 264, -end => 283);
 
1420
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 264, -end => 283);
 
1421
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 312, -end => 326);
 
1422
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 315, -end => 329);
 
1423
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 318, -end => 332);
 
1424
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 319, -end => 333);
 
1425
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 636, -end => 653);
 
1426
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 637, -end => 654);
 
1427
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 639, -end => 656);
 
1428
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 644, -end => 661);
 
1429
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 706, -end => 725);
 
1430
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 707, -end => 726);
 
1431
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 713, -end => 732);
 
1432
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 717, -end => 736);
 
1433
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 733, -end => 752);
 
1434
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 735, -end => 754);
 
1435
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 741, -end => 760);
 
1436
    Bio::Map::Position->new(-element => $pred14, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 745, -end => 764);
 
1437
    my $pred15 = Bio::Map::Prediction->new(-source => "meme");
 
1438
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 89, -end => 108);
 
1439
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 92, -end => 111);
 
1440
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 95, -end => 114);
 
1441
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 96, -end => 115);
 
1442
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 115, -end => 134);
 
1443
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 120, -end => 139);
 
1444
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 126, -end => 145);
 
1445
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 128, -end => 147);
 
1446
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 142, -end => 161);
 
1447
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 193, -end => 212);
 
1448
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 202, -end => 221);
 
1449
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 203, -end => 222);
 
1450
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 205, -end => 224);
 
1451
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 219, -end => 238);
 
1452
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 260, -end => 279);
 
1453
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 264, -end => 283);
 
1454
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 270, -end => 289);
 
1455
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 335, -end => 349);
 
1456
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 337, -end => 351);
 
1457
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 338, -end => 352);
 
1458
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 343, -end => 357);
 
1459
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 503, -end => 522);
 
1460
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 512, -end => 526);
 
1461
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 526, -end => 540);
 
1462
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 528, -end => 542);
 
1463
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 530, -end => 544);
 
1464
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 539, -end => 553);
 
1465
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 546, -end => 560);
 
1466
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 547, -end => 566);
 
1467
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 551, -end => 570);
 
1468
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 553, -end => 572);
 
1469
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 556, -end => 575);
 
1470
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 560, -end => 574);
 
1471
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 562, -end => 576);
 
1472
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 568, -end => 582);
 
1473
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 573, -end => 587);
 
1474
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 671, -end => 685);
 
1475
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 672, -end => 686);
 
1476
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 675, -end => 689);
 
1477
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 678, -end => 692);
 
1478
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 782, -end => 801);
 
1479
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 806, -end => 825);
 
1480
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 808, -end => 827);
 
1481
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 812, -end => 831);
 
1482
    Bio::Map::Position->new(-element => $pred15, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 816, -end => 835);
 
1483
    my $pred16 = Bio::Map::Prediction->new(-source => "meme");
 
1484
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 141, -end => 160);
 
1485
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 145, -end => 164);
 
1486
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 150, -end => 169);
 
1487
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 151, -end => 170);
 
1488
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 215, -end => 234);
 
1489
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 232, -end => 248);
 
1490
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 232, -end => 248);
 
1491
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 234, -end => 250);
 
1492
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 238, -end => 254);
 
1493
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 265, -end => 281);
 
1494
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 338, -end => 354);
 
1495
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 342, -end => 358);
 
1496
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 447, -end => 466);
 
1497
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 451, -end => 470);
 
1498
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 521, -end => 540);
 
1499
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 539, -end => 558);
 
1500
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 545, -end => 564);
 
1501
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 547, -end => 566);
 
1502
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 547, -end => 566);
 
1503
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 623, -end => 639);
 
1504
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 644, -end => 660);
 
1505
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 713, -end => 732);
 
1506
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 714, -end => 733);
 
1507
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 720, -end => 739);
 
1508
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 724, -end => 743);
 
1509
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 779, -end => 795);
 
1510
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 780, -end => 796);
 
1511
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 780, -end => 796);
 
1512
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 780, -end => 796);
 
1513
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 781, -end => 797);
 
1514
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 805, -end => 824);
 
1515
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 805, -end => 824);
 
1516
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 806, -end => 825);
 
1517
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 806, -end => 825);
 
1518
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 807, -end => 826);
 
1519
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 830, -end => 849);
 
1520
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 862, -end => 878);
 
1521
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 863, -end => 879);
 
1522
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 866, -end => 882);
 
1523
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 870, -end => 886);
 
1524
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 881, -end => 900);
 
1525
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 884, -end => 903);
 
1526
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 884, -end => 903);
 
1527
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 885, -end => 904);
 
1528
    Bio::Map::Position->new(-element => $pred16, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 886, -end => 905);
 
1529
    my $pred17 = Bio::Map::Prediction->new(-source => "meme");
 
1530
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 107, -end => 126);
 
1531
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 120, -end => 139);
 
1532
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 124, -end => 143);
 
1533
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 126, -end => 145);
 
1534
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 127, -end => 146);
 
1535
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 128, -end => 147);
 
1536
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 131, -end => 150);
 
1537
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 133, -end => 152);
 
1538
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 133, -end => 152);
 
1539
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 134, -end => 153);
 
1540
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 150, -end => 169);
 
1541
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 157, -end => 176);
 
1542
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 157, -end => 176);
 
1543
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 158, -end => 177);
 
1544
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 172, -end => 191);
 
1545
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 187, -end => 206);
 
1546
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 194, -end => 213);
 
1547
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 194, -end => 213);
 
1548
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 195, -end => 214);
 
1549
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 231, -end => 250);
 
1550
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 232, -end => 251);
 
1551
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 232, -end => 251);
 
1552
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 233, -end => 252);
 
1553
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 236, -end => 255);
 
1554
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 243, -end => 262);
 
1555
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 249, -end => 268);
 
1556
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 251, -end => 270);
 
1557
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 252, -end => 271);
 
1558
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 266, -end => 280);
 
1559
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 272, -end => 286);
 
1560
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 275, -end => 289);
 
1561
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 276, -end => 290);
 
1562
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 277, -end => 291);
 
1563
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 307, -end => 321);
 
1564
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 310, -end => 324);
 
1565
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 313, -end => 327);
 
1566
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 314, -end => 328);
 
1567
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 713, -end => 732);
 
1568
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 714, -end => 733);
 
1569
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 720, -end => 739);
 
1570
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 724, -end => 743);
 
1571
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 816, -end => 835);
 
1572
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 818, -end => 837);
 
1573
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 822, -end => 841);
 
1574
    Bio::Map::Position->new(-element => $pred17, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 826, -end => 845);
 
1575
    my $pred18 = Bio::Map::Prediction->new(-source => "meme");
 
1576
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 92, -end => 111);
 
1577
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 100, -end => 119);
 
1578
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 101, -end => 120);
 
1579
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 105, -end => 124);
 
1580
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 118, -end => 137);
 
1581
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 215, -end => 234);
 
1582
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 216, -end => 235);
 
1583
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 218, -end => 237);
 
1584
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 219, -end => 238);
 
1585
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 223, -end => 242);
 
1586
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 224, -end => 243);
 
1587
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 227, -end => 246);
 
1588
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 240, -end => 259);
 
1589
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 242, -end => 261);
 
1590
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 247, -end => 266);
 
1591
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 248, -end => 267);
 
1592
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 251, -end => 270);
 
1593
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 281, -end => 300);
 
1594
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 281, -end => 300);
 
1595
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 283, -end => 302);
 
1596
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 289, -end => 308);
 
1597
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 313, -end => 332);
 
1598
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 316, -end => 335);
 
1599
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 321, -end => 340);
 
1600
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 321, -end => 340);
 
1601
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 325, -end => 344);
 
1602
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 328, -end => 347);
 
1603
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 331, -end => 350);
 
1604
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 332, -end => 351);
 
1605
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 337, -end => 356);
 
1606
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 339, -end => 358);
 
1607
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 376, -end => 395);
 
1608
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 408, -end => 427);
 
1609
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 692, -end => 711);
 
1610
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 693, -end => 712);
 
1611
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 698, -end => 717);
 
1612
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 699, -end => 718);
 
1613
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 727, -end => 746);
 
1614
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 729, -end => 748);
 
1615
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 735, -end => 754);
 
1616
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 739, -end => 758);
 
1617
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Scer"), -start => 757, -end => 776);
 
1618
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Sbay"), -start => 759, -end => 778);
 
1619
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Spar"), -start => 765, -end => 784);
 
1620
    Bio::Map::Position->new(-element => $pred18, -map => Bio::Map::GeneMap->get(-gene => "HEM13", -species => "Smik"), -start => 769, -end => 788);
 
1621
    my $pred19 = Bio::Map::Prediction->new(-source => "meme");
 
1622
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 29, -end => 43);
 
1623
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 34, -end => 48);
 
1624
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 36, -end => 50);
 
1625
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 45, -end => 59);
 
1626
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 52, -end => 66);
 
1627
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 57, -end => 71);
 
1628
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 62, -end => 76);
 
1629
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 66, -end => 80);
 
1630
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 77, -end => 91);
 
1631
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 97, -end => 116);
 
1632
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 135, -end => 154);
 
1633
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 137, -end => 151);
 
1634
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 138, -end => 152);
 
1635
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 140, -end => 159);
 
1636
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 142, -end => 156);
 
1637
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 143, -end => 157);
 
1638
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 146, -end => 165);
 
1639
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 148, -end => 167);
 
1640
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 162, -end => 181);
 
1641
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 182, -end => 201);
 
1642
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 183, -end => 202);
 
1643
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 186, -end => 205);
 
1644
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 190, -end => 209);
 
1645
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 199, -end => 218);
 
1646
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 208, -end => 227);
 
1647
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 209, -end => 228);
 
1648
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 211, -end => 230);
 
1649
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 225, -end => 244);
 
1650
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 239, -end => 258);
 
1651
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 243, -end => 262);
 
1652
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 245, -end => 264);
 
1653
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 245, -end => 264);
 
1654
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 272, -end => 291);
 
1655
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 274, -end => 293);
 
1656
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 294, -end => 313);
 
1657
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 504, -end => 523);
 
1658
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 527, -end => 541);
 
1659
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 529, -end => 543);
 
1660
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 548, -end => 567);
 
1661
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 552, -end => 571);
 
1662
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 554, -end => 573);
 
1663
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 557, -end => 576);
 
1664
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 571, -end => 585);
 
1665
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 572, -end => 586);
 
1666
    Bio::Map::Position->new(-element => $pred19, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 574, -end => 588);
 
1667
    my $pred20 = Bio::Map::Prediction->new(-source => "meme");
 
1668
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 98, -end => 117);
 
1669
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 99, -end => 118);
 
1670
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 100, -end => 119);
 
1671
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 100, -end => 119);
 
1672
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 103, -end => 122);
 
1673
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 135, -end => 154);
 
1674
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 136, -end => 155);
 
1675
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 140, -end => 159);
 
1676
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 141, -end => 160);
 
1677
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 168, -end => 178);
 
1678
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 171, -end => 185);
 
1679
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 172, -end => 186);
 
1680
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 172, -end => 186);
 
1681
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 173, -end => 187);
 
1682
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 173, -end => 187);
 
1683
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 174, -end => 188);
 
1684
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 174, -end => 188);
 
1685
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 177, -end => 191);
 
1686
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 179, -end => 193);
 
1687
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 184, -end => 194);
 
1688
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 188, -end => 198);
 
1689
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 189, -end => 199);
 
1690
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 192, -end => 202);
 
1691
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 196, -end => 206);
 
1692
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 200, -end => 219);
 
1693
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 201, -end => 220);
 
1694
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 201, -end => 220);
 
1695
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 201, -end => 220);
 
1696
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 201, -end => 211);
 
1697
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 202, -end => 221);
 
1698
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 202, -end => 212);
 
1699
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 236, -end => 255);
 
1700
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 238, -end => 257);
 
1701
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 238, -end => 257);
 
1702
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 243, -end => 262);
 
1703
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 272, -end => 282);
 
1704
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 280, -end => 290);
 
1705
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 306, -end => 316);
 
1706
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 312, -end => 322);
 
1707
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 437, -end => 447);
 
1708
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 802, -end => 812);
 
1709
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 802, -end => 812);
 
1710
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 803, -end => 813);
 
1711
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 803, -end => 813);
 
1712
    Bio::Map::Position->new(-element => $pred20, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 804, -end => 814);
 
1713
    my $pred21 = Bio::Map::Prediction->new(-source => "meme");
 
1714
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 32, -end => 45);
 
1715
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 37, -end => 50);
 
1716
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 39, -end => 52);
 
1717
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 48, -end => 61);
 
1718
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 92, -end => 111);
 
1719
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 111, -end => 130);
 
1720
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 117, -end => 136);
 
1721
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 118, -end => 137);
 
1722
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 118, -end => 137);
 
1723
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 119, -end => 138);
 
1724
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 136, -end => 155);
 
1725
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 137, -end => 156);
 
1726
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 138, -end => 157);
 
1727
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 142, -end => 161);
 
1728
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 143, -end => 162);
 
1729
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 143, -end => 162);
 
1730
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 143, -end => 162);
 
1731
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 144, -end => 163);
 
1732
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 185, -end => 204);
 
1733
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 186, -end => 205);
 
1734
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 189, -end => 208);
 
1735
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 193, -end => 212);
 
1736
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 233, -end => 252);
 
1737
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 235, -end => 254);
 
1738
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 235, -end => 254);
 
1739
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 240, -end => 259);
 
1740
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 285, -end => 304);
 
1741
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 286, -end => 305);
 
1742
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 286, -end => 305);
 
1743
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 290, -end => 309);
 
1744
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 292, -end => 311);
 
1745
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 294, -end => 313);
 
1746
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 295, -end => 314);
 
1747
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 296, -end => 315);
 
1748
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 297, -end => 316);
 
1749
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 513, -end => 532);
 
1750
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 514, -end => 533);
 
1751
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 514, -end => 533);
 
1752
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 516, -end => 535);
 
1753
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 517, -end => 536);
 
1754
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 734, -end => 747);
 
1755
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 735, -end => 748);
 
1756
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 736, -end => 749);
 
1757
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 736, -end => 749);
 
1758
    Bio::Map::Position->new(-element => $pred21, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 736, -end => 749);
 
1759
    my $pred22 = Bio::Map::Prediction->new(-source => "meme");
 
1760
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 33, -end => 52);
 
1761
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 38, -end => 57);
 
1762
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 40, -end => 59);
 
1763
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 49, -end => 68);
 
1764
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 90, -end => 109);
 
1765
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 98, -end => 117);
 
1766
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 99, -end => 118);
 
1767
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 103, -end => 122);
 
1768
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 116, -end => 135);
 
1769
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 133, -end => 152);
 
1770
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 134, -end => 153);
 
1771
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 138, -end => 157);
 
1772
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 139, -end => 158);
 
1773
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 165, -end => 184);
 
1774
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 166, -end => 185);
 
1775
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 171, -end => 190);
 
1776
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 173, -end => 192);
 
1777
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 188, -end => 207);
 
1778
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 189, -end => 208);
 
1779
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 192, -end => 211);
 
1780
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 196, -end => 215);
 
1781
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 219, -end => 238);
 
1782
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 221, -end => 240);
 
1783
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Sbay"), -start => 222, -end => 240);
 
1784
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 226, -end => 245);
 
1785
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 227, -end => 246);
 
1786
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 230, -end => 249);
 
1787
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Smik"), -start => 253, -end => 271);
 
1788
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Scer"), -start => 255, -end => 273);
 
1789
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM14", -species => "Spar"), -start => 255, -end => 273);
 
1790
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 288, -end => 306);
 
1791
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 290, -end => 308);
 
1792
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 295, -end => 313);
 
1793
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 296, -end => 314);
 
1794
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 299, -end => 317);
 
1795
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 339, -end => 358);
 
1796
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 342, -end => 361);
 
1797
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 343, -end => 362);
 
1798
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 348, -end => 367);
 
1799
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 350, -end => 369);
 
1800
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 380, -end => 399);
 
1801
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 383, -end => 402);
 
1802
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 386, -end => 405);
 
1803
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 388, -end => 407);
 
1804
    Bio::Map::Position->new(-element => $pred22, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 392, -end => 411);
 
1805
    my $pred23 = Bio::Map::Prediction->new(-source => "meme");
 
1806
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 5, -end => 24);
 
1807
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 24, -end => 43);
 
1808
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 46, -end => 65);
 
1809
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 69, -end => 88);
 
1810
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 71, -end => 90);
 
1811
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 71, -end => 90);
 
1812
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 99, -end => 118);
 
1813
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 146, -end => 160);
 
1814
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 151, -end => 165);
 
1815
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 157, -end => 171);
 
1816
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 159, -end => 173);
 
1817
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 173, -end => 187);
 
1818
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 253, -end => 272);
 
1819
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 256, -end => 275);
 
1820
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 257, -end => 276);
 
1821
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 414, -end => 433);
 
1822
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 475, -end => 494);
 
1823
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 478, -end => 497);
 
1824
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 493, -end => 512);
 
1825
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 493, -end => 512);
 
1826
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 507, -end => 526);
 
1827
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 509, -end => 528);
 
1828
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 510, -end => 529);
 
1829
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 519, -end => 538);
 
1830
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 522, -end => 541);
 
1831
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 527, -end => 546);
 
1832
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 529, -end => 548);
 
1833
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 529, -end => 548);
 
1834
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 531, -end => 550);
 
1835
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 573, -end => 592);
 
1836
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 574, -end => 593);
 
1837
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 576, -end => 595);
 
1838
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 578, -end => 597);
 
1839
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 634, -end => 653);
 
1840
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 645, -end => 664);
 
1841
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 649, -end => 668);
 
1842
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 654, -end => 673);
 
1843
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 659, -end => 678);
 
1844
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 666, -end => 685);
 
1845
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 697, -end => 716);
 
1846
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 779, -end => 793);
 
1847
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 780, -end => 794);
 
1848
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 780, -end => 794);
 
1849
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 780, -end => 794);
 
1850
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 781, -end => 795);
 
1851
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 802, -end => 821);
 
1852
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 802, -end => 821);
 
1853
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 803, -end => 822);
 
1854
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 803, -end => 822);
 
1855
    Bio::Map::Position->new(-element => $pred23, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 804, -end => 823);
 
1856
    my $pred24 = Bio::Map::Prediction->new(-source => "meme");
 
1857
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 104, -end => 123);
 
1858
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 104, -end => 122);
 
1859
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 109, -end => 128);
 
1860
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 115, -end => 134);
 
1861
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 117, -end => 136);
 
1862
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 123, -end => 141);
 
1863
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 130, -end => 148);
 
1864
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 130, -end => 148);
 
1865
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 131, -end => 149);
 
1866
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 131, -end => 150);
 
1867
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 143, -end => 162);
 
1868
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 155, -end => 169);
 
1869
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 162, -end => 181);
 
1870
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 169, -end => 188);
 
1871
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 169, -end => 188);
 
1872
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 170, -end => 189);
 
1873
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 485, -end => 499);
 
1874
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 485, -end => 503);
 
1875
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 489, -end => 507);
 
1876
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 503, -end => 521);
 
1877
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 503, -end => 521);
 
1878
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 505, -end => 523);
 
1879
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 506, -end => 524);
 
1880
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 515, -end => 533);
 
1881
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 529, -end => 543);
 
1882
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 534, -end => 548);
 
1883
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 536, -end => 550);
 
1884
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 538, -end => 552);
 
1885
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 544, -end => 563);
 
1886
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 554, -end => 572);
 
1887
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 556, -end => 574);
 
1888
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 558, -end => 577);
 
1889
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 559, -end => 577);
 
1890
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 560, -end => 579);
 
1891
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 566, -end => 585);
 
1892
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 571, -end => 590);
 
1893
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 579, -end => 593);
 
1894
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 580, -end => 594);
 
1895
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 583, -end => 597);
 
1896
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 589, -end => 603);
 
1897
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 634, -end => 653);
 
1898
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 635, -end => 654);
 
1899
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 636, -end => 655);
 
1900
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 637, -end => 656);
 
1901
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 637, -end => 656);
 
1902
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 731, -end => 749);
 
1903
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 732, -end => 750);
 
1904
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 733, -end => 751);
 
1905
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 733, -end => 751);
 
1906
    Bio::Map::Position->new(-element => $pred24, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 733, -end => 751);
 
1907
    my $pred25 = Bio::Map::Prediction->new(-source => "meme");
 
1908
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 152, -end => 171);
 
1909
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 157, -end => 176);
 
1910
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 163, -end => 182);
 
1911
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 165, -end => 184);
 
1912
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 179, -end => 198);
 
1913
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 197, -end => 216);
 
1914
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 206, -end => 225);
 
1915
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 207, -end => 226);
 
1916
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 209, -end => 228);
 
1917
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 217, -end => 231);
 
1918
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 219, -end => 233);
 
1919
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 223, -end => 242);
 
1920
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 224, -end => 238);
 
1921
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 225, -end => 239);
 
1922
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 228, -end => 242);
 
1923
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 247, -end => 266);
 
1924
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 249, -end => 268);
 
1925
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 254, -end => 273);
 
1926
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 255, -end => 274);
 
1927
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 258, -end => 277);
 
1928
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 260, -end => 274);
 
1929
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 277, -end => 296);
 
1930
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 279, -end => 298);
 
1931
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 284, -end => 303);
 
1932
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 285, -end => 304);
 
1933
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 288, -end => 307);
 
1934
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 380, -end => 399);
 
1935
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 383, -end => 402);
 
1936
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 386, -end => 405);
 
1937
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 388, -end => 407);
 
1938
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 392, -end => 411);
 
1939
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 476, -end => 495);
 
1940
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 520, -end => 539);
 
1941
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 525, -end => 544);
 
1942
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 525, -end => 544);
 
1943
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 527, -end => 546);
 
1944
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 529, -end => 548);
 
1945
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 529, -end => 548);
 
1946
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 536, -end => 555);
 
1947
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 540, -end => 559);
 
1948
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 542, -end => 561);
 
1949
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 549, -end => 568);
 
1950
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 573, -end => 592);
 
1951
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 574, -end => 593);
 
1952
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 576, -end => 595);
 
1953
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Smik"), -start => 578, -end => 597);
 
1954
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Scer"), -start => 599, -end => 613);
 
1955
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Spar"), -start => 601, -end => 615);
 
1956
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Skud"), -start => 607, -end => 621);
 
1957
    Bio::Map::Position->new(-element => $pred25, -map => Bio::Map::GeneMap->get(-gene => "HEM15", -species => "Sbay"), -start => 612, -end => 626);
 
1958
    my $pred26 = Bio::Map::Prediction->new(-source => "meme");
 
1959
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 10, -end => 29);
 
1960
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 42, -end => 61);
 
1961
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 56, -end => 72);
 
1962
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 57, -end => 73);
 
1963
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 57, -end => 73);
 
1964
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 58, -end => 74);
 
1965
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 59, -end => 75);
 
1966
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 108, -end => 127);
 
1967
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 127, -end => 146);
 
1968
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 130, -end => 149);
 
1969
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 134, -end => 153);
 
1970
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 134, -end => 153);
 
1971
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 135, -end => 154);
 
1972
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 149, -end => 168);
 
1973
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 156, -end => 175);
 
1974
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 156, -end => 175);
 
1975
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 157, -end => 176);
 
1976
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 159, -end => 178);
 
1977
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 220, -end => 239);
 
1978
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 290, -end => 309);
 
1979
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 321, -end => 340);
 
1980
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 527, -end => 546);
 
1981
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 581, -end => 600);
 
1982
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 607, -end => 626);
 
1983
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 610, -end => 629);
 
1984
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 611, -end => 630);
 
1985
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 612, -end => 631);
 
1986
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 673, -end => 692);
 
1987
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 721, -end => 740);
 
1988
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 722, -end => 741);
 
1989
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 723, -end => 742);
 
1990
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 723, -end => 742);
 
1991
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 723, -end => 742);
 
1992
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 747, -end => 766);
 
1993
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 748, -end => 767);
 
1994
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 769, -end => 788);
 
1995
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 770, -end => 789);
 
1996
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 770, -end => 789);
 
1997
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 771, -end => 790);
 
1998
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 785, -end => 804);
 
1999
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 804, -end => 823);
 
2000
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 804, -end => 823);
 
2001
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 805, -end => 824);
 
2002
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 805, -end => 824);
 
2003
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 806, -end => 825);
 
2004
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 885, -end => 901);
 
2005
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 888, -end => 904);
 
2006
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 888, -end => 904);
 
2007
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 889, -end => 905);
 
2008
    Bio::Map::Position->new(-element => $pred26, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 890, -end => 906);
 
2009
    my $pred27 = Bio::Map::Prediction->new(-source => "meme");
 
2010
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 89, -end => 108);
 
2011
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 97, -end => 116);
 
2012
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 98, -end => 117);
 
2013
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 102, -end => 121);
 
2014
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 104, -end => 123);
 
2015
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 111, -end => 130);
 
2016
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 115, -end => 134);
 
2017
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 168, -end => 187);
 
2018
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 184, -end => 203);
 
2019
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 254, -end => 273);
 
2020
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 256, -end => 275);
 
2021
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 261, -end => 280);
 
2022
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 262, -end => 281);
 
2023
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 265, -end => 284);
 
2024
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 272, -end => 291);
 
2025
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 280, -end => 299);
 
2026
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 281, -end => 300);
 
2027
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 283, -end => 302);
 
2028
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 288, -end => 307);
 
2029
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 289, -end => 308);
 
2030
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 292, -end => 311);
 
2031
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 380, -end => 399);
 
2032
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 383, -end => 402);
 
2033
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 383, -end => 402);
 
2034
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 386, -end => 405);
 
2035
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 386, -end => 405);
 
2036
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 387, -end => 406);
 
2037
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 388, -end => 407);
 
2038
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 392, -end => 411);
 
2039
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 392, -end => 411);
 
2040
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 394, -end => 413);
 
2041
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 437, -end => 456);
 
2042
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 543, -end => 562);
 
2043
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 560, -end => 579);
 
2044
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 660, -end => 679);
 
2045
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 661, -end => 680);
 
2046
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 680, -end => 699);
 
2047
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 778, -end => 797);
 
2048
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 779, -end => 798);
 
2049
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 779, -end => 798);
 
2050
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 779, -end => 798);
 
2051
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 780, -end => 799);
 
2052
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 808, -end => 827);
 
2053
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Sbay"), -start => 808, -end => 827);
 
2054
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 809, -end => 828);
 
2055
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 809, -end => 828);
 
2056
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Smik"), -start => 810, -end => 829);
 
2057
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Skud"), -start => 840, -end => 859);
 
2058
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Scer"), -start => 932, -end => 951);
 
2059
    Bio::Map::Position->new(-element => $pred27, -map => Bio::Map::GeneMap->get(-gene => "HEM2", -species => "Spar"), -start => 932, -end => 951);
 
2060
    my $pred28 = Bio::Map::Prediction->new(-source => "meme");
 
2061
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 203, -end => 222);
 
2062
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 205, -end => 224);
 
2063
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 210, -end => 229);
 
2064
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 211, -end => 230);
 
2065
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 214, -end => 233);
 
2066
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 228, -end => 247);
 
2067
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 230, -end => 249);
 
2068
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 235, -end => 254);
 
2069
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 236, -end => 255);
 
2070
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 239, -end => 258);
 
2071
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 272, -end => 291);
 
2072
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 274, -end => 293);
 
2073
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 279, -end => 298);
 
2074
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 280, -end => 299);
 
2075
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 283, -end => 302);
 
2076
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 305, -end => 324);
 
2077
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 308, -end => 327);
 
2078
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 313, -end => 332);
 
2079
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 313, -end => 332);
 
2080
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 317, -end => 336);
 
2081
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Sbay"), -start => 379, -end => 398);
 
2082
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Smik"), -start => 382, -end => 401);
 
2083
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Skud"), -start => 385, -end => 404);
 
2084
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Spar"), -start => 387, -end => 406);
 
2085
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM4", -species => "Scer"), -start => 391, -end => 410);
 
2086
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 466, -end => 485);
 
2087
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 467, -end => 486);
 
2088
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 468, -end => 487);
 
2089
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 469, -end => 488);
 
2090
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 470, -end => 489);
 
2091
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 515, -end => 534);
 
2092
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 516, -end => 535);
 
2093
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 516, -end => 535);
 
2094
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 518, -end => 537);
 
2095
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 519, -end => 538);
 
2096
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 546, -end => 565);
 
2097
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 549, -end => 568);
 
2098
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 549, -end => 568);
 
2099
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 550, -end => 569);
 
2100
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 551, -end => 570);
 
2101
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 712, -end => 731);
 
2102
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 713, -end => 732);
 
2103
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 713, -end => 732);
 
2104
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 720, -end => 739);
 
2105
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Smik"), -start => 724, -end => 743);
 
2106
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 725, -end => 744);
 
2107
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Spar"), -start => 726, -end => 745);
 
2108
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Scer"), -start => 726, -end => 745);
 
2109
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Skud"), -start => 726, -end => 745);
 
2110
    Bio::Map::Position->new(-element => $pred28, -map => Bio::Map::GeneMap->get(-gene => "HEM3", -species => "Sbay"), -start => 739, -end => 758);
 
2111
    push(@predicitons_of_interest, $pred1, $pred2, $pred3, $pred4, $pred5, $pred6, $pred7, $pred8, $pred9, $pred10,
 
2112
                                   $pred11, $pred12, $pred13, $pred14, $pred15, $pred16, $pred17, $pred18, $pred19, $pred20,
 
2113
                                   $pred21, $pred22, $pred23, $pred24, $pred25, $pred26, $pred27, $pred28);
 
2114
    
 
2115
    # our run class has placed the predictions on our maps, lets find all the
 
2116
    # intersections of predictions shared by all HEM1-HEMx
 
2117
    my $rel = Bio::Map::GeneRelative->new(-gene => 0);
 
2118
    my $min_pables_num = 2;
 
2119
    my $di_able = Bio::Map::Mappable->disconnected_intersections(\@predicitons_of_interest,
 
2120
                                                                   -min_mappables_num => $min_pables_num,
 
2121
                                                                   -relative => $rel,
 
2122
                                                                   -min_overlap_percent => 66);
 
2123
    
 
2124
    my @positions = $di_able->get_positions;
 
2125
    #print "--\nAsked for disconnected intersections of all predictions that agree for at least $min_pables_num meme runs:\n"; 
 
2126
    #foreach my $pos (sort { $a->start($rel) <=> $b->start($rel) } @positions) {
 
2127
    #    #*** disconnected_intersections should (?) somehow manage to transfer across the appropriate element to each generated position
 
2128
    #    print "  pos ", $pos->toString($rel), " on map for gene ", $pos->map->gene->universal_name, " and species ", $pos->map->species, "\n";
 
2129
    #}
 
2130
    #print "__\n";
 
2131
    is @positions, 17; # 223??
 
2132
    
 
2133
    $min_pables_num = 3;
 
2134
    my @overlapping_groups = Bio::Map::Mappable->overlapping_groups(\@predicitons_of_interest,
 
2135
                                                                   -min_mappables_num => $min_pables_num,
 
2136
                                                                   -relative => $rel,
 
2137
                                                                   -min_overlap_percent => 66);
 
2138
    
 
2139
    #print "\nAsked for all the overlapping groups of predictions amongst all predictions, but each group needed predictions from at least $min_pables_num meme runs:\n";
 
2140
    #foreach my $group (@overlapping_groups) {
 
2141
    #    print "  - got a group with ", scalar(@{$group}), " positions\n";
 
2142
    #    foreach my $pos (@{$group}) {
 
2143
    #        print "    * pos ", $pos->toString($rel), " on map for gene ", $pos->map->gene->universal_name, " and species ", $pos->map->species, " from meme run '", $pos->element->name, "'\n";
 
2144
    #    }
 
2145
    #}
 
2146
    #print "__\n";
 
2147
    
 
2148
    # not sure what the correct answer is
 
2149
}