alias numbers {
var %w = @Numbers, %i = 1, %n
window -h %w
loadbuf -rtnumbers %w num.ini
filter -wwteuc 2 61 %w %w
var %t = $line(%w,0)
while (%i <= %t) {
var %l = $line(%w,%i), %n = $addtok(%n,$+(%i,.) $gettok(%l,1,61) $+($chr(91),$gettok(%l,2,61),$chr(93)),32)
inc %i
}
window -c %w
echo -sec info Numbers: %n
}