RosettaCodeData/Task/Factorial/WDTE/factorial-1.wdte

let max a b => a { < b => b };

let ! n => n { > 1 => - n 1 -> ! -> * n } -> max 1;