Code:
alias set.vars {
  var %i = 9
  while %i {
    set %variable $+ $calc(%i +1)  $($+(%,variable,%i),2)
    dec %i
  }
}