;; SPDX-FileCopyrightText: 2025 orangerot <me@orangerot>
;;
;; SPDX-License-Identifier: GPL-3.0

(module
  (func $fac (export "fac") (param f64) (result f64)
    local.get 0
    f64.const 1
    f64.lt
    if (result f64)
      f64.const 1
    else
      local.get 0
      local.get 0
      f64.const 1
      f64.sub
      call $fac
      f64.mul
    end))