alias ExpToLevel {
  var %lvl = 1, %exp = 0
  while (%exp <= $1) {
    inc %exp $calc($floor($calc(%lvl + 300 * 2 ^ (%lvl / 7))) / 4)
    inc %lvl
  }
  return $calc(%lvl - 1)
}