on *:TEXT:shoplist*:?:{
  var %y 1
  while ($read(shops.txt,s,$2,%x)) {
    /msg $nick $read(shops.txt,s,$nick,%x)
    inc %y 1
  }
}