Package factor

%% Find factors of a number

Import "math/prime".
Import "collect/string".

Execute
  Writeln["What number shall I factor?"].
  Try
    Extract[$(?x:Natural)] from bxStdin.
  then
    Writeln["The factors of ", $x, " are"].
    Writeln[$factors(x)].
  else
    Writeln["I need a number"].
  %Try
%Execute

%Package