function RSexp($lvl)
	{
		$lvl--;
		$exp = 0;
		$x = 1;
		while ($x <= $lvl):
			echo "<br /> $x - $exp - $tmpxp - $lvl <br />";
			//$tmpxp = ( $x + 300 * 2 ^ ( $x / 7 ) ) / 4;
			
			$tmpxp = $x / 7;
			echo "tmpxp[1][1] - $tmpxp <br />";
			$tmpxp3 = bcpow(2,$tmpxp);
			$tmpxp2 = 300 * $tmpxp3;
			$tmpxp2 = $x + $tmpxp2;
			echo "tmpxp[2][1] - $tmpxp2 <br />";
			echo "tmpxp[1][2] - $tmpxp3 <br />";
			$tmpxp = floor($tmpxp3);
			echo "tmpxp[1][3] - $tmpxp <br />";
			
			$tmpxp = $tmpxp / 4;
			echo "tmpxp[1][4] - $tmpxp <br />";
			$exp = $exp + $tmpxp;
			echo "exp[1][$x] - $exp <br />";
			$x++;
		endwhile;
		return $exp;
	}


------------------------------------------------------------

exp {
  var %x = 1,%level = $calc($1 - 1),%xp = 0
  while (%x <= %level) {


    var %TempXp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
    inc %xp %TempXp

    inc %x
  }
  return $int(%xp)
}