sub average {
    my ($min, $max) = @_;
    return ($min+$max)/2;
}