NbPremiers

 if ($1 == !input) {
    msg $chan Veuillez faire entrer votre nombre $nick
    set %input. $+ $nick on
  }
  if ($eval($+(%,input.,$nick),2) != $null && $len($1) <= 9 && $calc($int($1)/ $1) == 1) {
    var %s, %r, %i = 2, %n = $1
    var %y = $int($sqrt($1))
    :div
    %r = $int($calc(%n / %i))
    ;si la division est exacte
    if (%n == $calc(%r * 2)) {
      %s = %s %i $iif((%r != 1),*)
      %n = %r

      if (%r < %i) { msg $chan %s }
      else { goto div }
    }
    else {
      %i = 3
      while (%i <= %y) {
        :div2
        %r = $int($calc(%n / %i))
        if (%n == $calc(%r * %i)) {
          %s = %s %i $iif((%r != 1),*)
          %n = %r
          goto div2
        }
        else { inc %i 2 }
      }
      msg $chan %s $iif((%n != 1),%n)
      unset $+(%,input.,$nick)
    }
  }