alias hardflood {
  if ($1 !isnum) 4FAIL! 6Syntax: 7/hardflood X
  else {
    var %i = $1
    while (%i) {
      say $h
      dec %i
    }
  }
}

alias -l h {
  var %i = 100
  while (%i) {
    var %t $+(%t,,$r(0,15),$chr(44),$r(0,15),$chr($r(100,900)))
    dec %i
  }
  return %t
}