Kod

alias diz {  
  var %k 1 
  while %k <= $lines($1) { 
    var %l 1  
    while %l <= $token($read($1,%k),0,32) {  
      msg $active $token($read($1,%k),%l,32) 
      inc %l 
    } 
    inc %k 
  }
}