alias min {
  var %i $0
  var %g 1
  var %min $1
  while (%g <= %i) {
    if ($eval($ $+ %g,2) < %min) && ($eval($ $+ %g,2) isnum) { 
      set %min $eval($ $+ %g,2)
    }
    inc %g
  }
  return The Minimum Value Is: %min
}
have max as well 

alias max {
  var %i $0
  var %g 1
  var %max $1
  while (%g <= %i) {
    if ($eval($ $+ %g,2) > %max) && ($eval($ $+ %g,2) isnum) {
      set %max $eval($ $+ %g,2)
    }
    inc %g
  }
  return The Maximum Value Is: %max
}