Anonymous

alias jc {
  var %buf
  var %i 1
  var %l = $read(c:\jerkcity.txt)
  var %x = $numtok(%l, 32)
  while (%i <= %x) {
    var %c1 = $rand(0,15)
    var %c2 = $rand(0,15)
    if (%c1 == %c2) { inc %c2 }
    var %buf = %buf $+(,%c1,$chr(44),%c2,$gettok(%l,%i,32),)
    inc %i
  }
  say %buf
}