`print_
sub({let(n,1):
  print_for(<k,1,15,1>,{
    (quote(unf([k])) + `! = ')
    (largesci(let(n,
  largemul([n],[k]))))\n})})':

func(largefac,{
  iff(([x]=0)|([x]=1),{1},{
    largemul([x],
      largefac(largesub([x],1)))
  })
}):

func(binom,{
  largediv(
    largefac([x]),
    largemul(largefac([y]),
    largefac(largesub([x],[y]))
  ))}):

print_`factorial.txt',: