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=\"200\" width=\"200\">\n";
foreach (-15..15) {
    print hline(0,80,$_);
}
foreach (0..80) {
    print vline(-15,15,$_);
}
print "  <polyline\n";
print "    points=\"";
foreach (@scores) {
    if ($_) {
        push(@list,$y++);
        push(@list,$_ * -1.0);
    }
}
print join(",",@list);
print "\"\n";
print "    style=\"stroke: black; width: 1px; fill: none;\"/>\n";
print "</svg>\n";

sub hline {
    my $x1 = shift;
    my $x2 = shift;
    my $y1 = shift;
    my $y2 = $y1;

    return "  <line x1=\"$x1\" y1=\"$y1\" x2=\"$x2\" y2=\"$y2\"/>\n";
}

sub vline {
    my $y1 = shift;
    my $y2 = shift;
    my $x1 = shift;
    my $x2 = $x1;

    return "  <line x1=\"$x1\" y1=\"$y1\" x2=\"$x2\" y2=\"$y2\"/>\n";
}