Fakultaet (bc)

/*
   Compute factorial (bc)
   Henning Polzer,
   17. April 2015
*/

define fakultaet (z) {
   k = 1

   for (i = 2; i < z + 1; i++)
     k *= i

   return k
}