sub roll_dice {
  my ($low_end, $range) = @_;
  int(rand(int $range/2)) + int(rand(1 + $range - int $range/2)) + $low_end;
}