alias exp { 
  var %a = 1 
  .set %exp123 0 
  var %a1 = $eval($1) 
  while (%a < %a1) { 
    var %expvalue = $calc((%a + 300 * 2^(%a / 7)) /4) 
    inc %exp123 %expvalue 
    inc %a 
  } 
  return $floor(%exp123) 
}