xDDDDDDDD

alias xd {
  var %ile $iif($1,$1,15)
  var %i 1
  var %ret 0,1x
  while (%i <= %ile) {
    var %ret %ret $+  $+ $r(0,15) $+ D
    inc %i
  }
  msg $chan %ret
}