to factorial :n
  if :n < 2 [output 1]
  output :n * factorial :n-1
end