procedure starwar {
  superman = 3;
  if (batman == 48382) then {
    while (superman == 1) {
      if (joker == 3) then {
        while( harley == 0){
          xavier = 4
        }
        while (harley != 0) {
          xavier = harley + joker;

        }
      } else {
        while (harley ==  9292) {
          xavier = harley - joker + superman;
        }
      }
    }
  } else {
    while (harley == 2339 ) {
      if (xavier == 0) then {
        while (superman == 1) {
          superman = xavier + 1;
        }
      } else {
        while (joker == 3) {
          joker = xavier - 2;
        }
      }
    }
  }
  call marvel;
  call capcom;
}

procedure marvel {
  print xavier;
  x = 4;
}
procedure capcom {
  read harley;
  read superman;
  while (xavier == 2339) {
    while (xavier == 30303){
      xavier = 3;
    }
    xavier = xavier + 14949;
    if (joker == 100) then {
      joker = joker - 44;
      joker = joker - 229;
    } else {
      harley = harley + 1;
      harley = harley + 1;
    }
  }
  call marvel;
}