Mine

var %a = 1, %val.string, %var.string, %b = 1
while ($var(%suggest.times.*,%a)) {
  %val.string = %val.string $($v1,3)
  %val.string = $sorttok(%val.string,32,nr)
  %var.string = $instok(%var.string,$gettok($v1,3,46),$findtok(%val.string,$($v1,3),1,32),32)
  inc %a
}
while (%b <= 5) {
  var %line = %line $gettok(%var.string,%b,32) $+([,$gettok(%val.string,%b,32),],$chr(44))
  inc %a
}
%line = $left(%line,-1)