until ($solved) {
   $self{gripe}--;
   $self{work}++;
}