use strict;
use color;

print '<style>div { float: left; margin: 1em; } span { height: 2em; width: 2em; }</style>';

sub printColor {
    my($c, $s) = @_;
    printf "<span style='float: left; background: rgb(%d,%d,%d)'>$s</span>", $c->{red}, $c->{green}, $c->{blue};
}

for (1..200) {
    print '<div>';
    my @colors = ();
    for (1..20) {
        push(@colors, color::new(\@colors));
    }
    foreach (@colors) {
        printColor($_);
    }
    print '</div>';
}