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