fac: function [n][m: #(0 1) any [m/:n m/:n: n * fac n - 1]]