Unnamed

/fill {
  var %a = 1, %b = 1, %c = 1, %d = beI, %e
  while (%a <= 100) {
    set -l $+(%,%b) $($+(%,%b),2) $v1
    inc %a
    if ($numtok($($+(%,%b),2),32) == $modespl) inc %b
  }
  while (%c <= %b) {
    %e = 1
    while ($mid(%d,%e,1)) {
      mode # $+(+,$str($v1,$numtok($($+(%,%c),2),32))) $($+(%,%c),2)
      inc %e
    }
    inc %c
  }
}