exp {
  var %x = 1, %level = $calc($1 - 1), %intone = 0, %inttwo = 0
  while (%x <= %level) {
    var %tempXp = $floor($calc(%x + 300 * 2^(%x / 7)))
    set %inttwo %intone
    set %intone $calc(%inttwo + %tempxp)
    set %x $calc(%x + 1)
  }
  set %intone $calc(%intone / 4)
  /echo $chan $floor(%intone)
}