sub remaining { 
    my ($start, $half, $elapsed) = @_; 
    $remain = $start * (.5**($elapsed/half));
    return $remain;
}