Untitled

alias max {
  if ($istokcs(I b e,$1,32)) {
    var %m = $modespl, %n = $calc(100- $($+($chr(36),i,$1,l) $+ (#,0),2)), %i = $ceil($calc(%n / %m)), %d = %m
    :repeat
    while (%d >= 1) {
      var %wtf = %wtf $calc(%n - %d)
      dec %d
    }
    mode # $+(+,$str($1,%m)) $sorttok(%wtf,32,nr)
    var %n = %n - $modespl, %d %m, %wtf
    if (%i > 0) { dec %i 1 | goto repeat }
  }
}