Only for programmers

she = alloc_first_she(nice, pretty, tall, smart, reach); 
while (!dead(me)) 
{ 
     .... 
     if ( she->love != me ) 
        { 
             free(she); 
             she = alloc_new_she(--nice, --pretty, --tall, --smart, 
              --reach); 
         } 
   else 
         { 
             f...ck(she); 
             new_she = alloc_new_she(++nice, ++pretty, ++tall, ++smart, 
             ++reach); 
   .         if  ( new_she && new_she->love == me ) 
                 { 
                     free(she); 
                     she = new_she; 
                  } 
             else 
                 { 
                    nice--; 
                    pretty--; 
                    tall--; 
                    smart--; 
                    reach--; 
                  } 
         } 
    .... 
} 
free(me); 
return 0; 
} 
     
This however will work good if function alloc_new_she() is always 
returning a pointer and no heap problems occur and purify didn't find 
any ABR or FMR. 

 Эх, тряхну стариной  STRUCT REQUIREMENT
    NICE
    PRETTY 
    TAIL 
    SMART 
    REACH
END

REQUIREMENT MY_REQUIREMENT

: INCREASE
    >R
    R@ NICE    1+!
    R@ PRETTY  1+!
    R@ TAIL    1+!
    R@ SMART   1+!
    R> REACH   1+!
;

: DECREASE
    >R
    R@ NICE    1-!
    R@ PRETTY  1-!
    R@ TAIL    1-!
    R@ SMART   1-!
    R> REACH   1-!
;

: SEARCH_NEXT
    SHE EXISTS?  IF FORGET THEN
    REQUIREMENT GIRLS SEARCH
    TO  SHE ;

: SEARCH_NEXT_MATCH
   DO
       SEARCH_NEXT
       GIRLS EMPTY? IF EXIT THEN
   SHE ME LOVE?  ME DEAD?  OR  UNTIL 
;

: LIVE
    DO
        SEARCH_NEXT_MATCH
        SHE EXISTS? NOT IF
            REQUIREMENT DECREASE
            CONTINUE
        THEN

        SHE F..K
        REQUIREMENT INCREASE
    МЕ DEAD? UNTIL
;

 Во!