alias sparse {
  var %text = salam 100 patlican 45 ekmek 15 su 10 konserve açacağı 120 domates betemek 15
  ;# v1
  ;noop $regsubex(%text,/([^0-9]+?)\s+([0-9]+)/g,$xvar(\n \1,\2))
  ;# v2 
  noop $regsubex(%text,/([^0-9]+?)\s+([0-9]+)/g,$xvar(\n,\1,\2))

}
alias xvar {

  ;echo 4 :v1: $replace($1,$chr(32),_) $2
  echo 3 :v2: $+($eval(%),_,$1) $2 $3
  set % $+ $replace($1,$chr(32),_) $2

}

alias _rkm_ayikla {
  tokenize 32 salam 100 patlican 45 ekmek 15 su 10 konserve açacağı 120 domates betemek 15
  var %m = 1, %n = 1
  while ([ $ $+ [ %m ] ]) {
    var %str- = %str- $v1
    if $v1 isnum { echo : % $+ _  $+  %n %str- | var %str- | inc %n } 
    inc %m
  }
}