my $y = 0;
my @list;

print "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>\n";
print "<!DOCTYPE svg  PUBLIC \"-//W3C//DTD SVG 1.0//EN\"\n";
print "		\"http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd\" >\n";
print "<svg height=\"400\" width=\"400\" viewbox=\"0,0,400,400\">\n";
print "<g transform=\"translate(0,15) scale(1,-1)\">\n";
print "<g transform=\"scale(4)\">\n";
foreach (-15..15) {
    print hline(0,80,$_);
}
foreach (0..80) {
    print vline(-15,15,$_);
}
print hline(0,80,0,'red');
print "  <polyline\n";
print "    points=\"";
foreach (@scores) {
    if ($_) {
        push(@list,$y++);
        push(@list,$_);
    }
}
print join(",",@list);
print "\"\n";
print "    style=\"stroke: black; width: 1px; fill: none;\"/>\n";
print "</g>\n";
print "</g>\n";
print "</svg>\n";

sub hline {
    my ($x1,$x2,$y1,$color) = @_;

    if ($color) {
        return "  <path d=\"M $x1,$y1 H $x2\" style=\"stroke: $color;\"/>\n";
    }
    else {
        return "  <path d=\"M $x1,$y1 H $x2\"/>\n";
    }
}

sub vline {
    my ($y1,$y2,$x1,$color) = @_;

    if ($color) {
        return "  <path d=\"M $x1,$y1 V $y2\" style=\"stroke: $color;\"/>\n";
    }
    else {
        return "  <path d=\"M $x1,$y1 V $y2\"/>\n";
    }
}