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

}