SIMU 1 c701
PRED c702
ERASE c731
MRAN b30 c700 c711
LOOP b51 1 b23
    PICK b51 c3 b52
    PICK b52 c711 b53
    JOIN c731 b53 c731
ENDL
ERASE c751
MRAN b22 c750 c751
REPE b24 c751 c771
CALC c5 = c701 + c702 + c731 + c771