Untitled

alias rnd {
  if ($2) {
    if ($gettok($1,2,46)) {
      if (!$mid($gettok($1,2,46),$calc($2 +1),1)) { return $null }
      else {
        if ($mid($gettok($1,2,46),$calc($2 +1),1) >= 5) { set %a $+($gettok($1,1,46),.,$mid($gettok($1,2,46),1,$calc($2 -1)),$calc($mid($gettok($1,2,46),$2,1) + 1)) }
        else { set %a $1 }
      }
    }
    else { return $null }
  }
  else {
    if ($gettok($1,2,46)) { 
      if ($mid($gettok($1,2,46),1,1) >= 5) { set %a $calc($gettok($1,1,46) + 1) }
      else { set %a $gettok($1,1,46) }
    }
    else { return $1 } 
  }
  return %a
}