tests/preamble.mfp

   1 $ ifxr 0 x y = x y;
   2 & ifxr 0 x y = y x;
   3 == ifxl 7 = code eq;
   4 * ifxl 7 = code mul;
   5 - ifxl 6 = code sub;
   6 + ifxl 6 = code add;
   7 if = code if;
   8 fac i = if (i == 0) 1 (i * fac (i - 1));
   9 start = fac 15;