import "io"

let fone(x) be
{ if x <= 1 then
    resultis 1;
  resultis x * fone(x - 1) }

let ftwo(x) be
{ let i = 2, f = 1;
  while i <= x do
  { f := f * i;
    i +:= 1 }
  resultis f }

let start() be
{ let max;
  out("Maximum value: ");
  max := inno();
  for i = 1 to max do
    out("%d, one: %d, two: %d\n", i, fone(i), ftwo(i)) }