ial(1:)"
               (progn
                 (require 'calc-comb)
                 (call-interactively 'calc-factorial))
               :keys "!"
               :active (>= (calc-stack-size) 1)]
              ["(2:) choose (1:)"
               (progn
                 (require 'calc-comb)
                 (call-interactively 'calc-choose))
               :keys "k c"
               :active (>= (calc-stack-size) 2)]
              ["permutations(2:,1:)"
               (progn
                 (require 'calc-comb)
                 (call-interactively 'calc-perm))
               :keys "H k c"
               :active (>= (calc-stack-size) 2)]
              ["Primality test for (1:)"
               (progn
                 (require 'calc-comb)
                 (call-interactively 'calc-prime-test))
               :keys "k p"
               :active (>= (calc-stack-size) 1)
               :help "For large (1:), a probabilistic test"]
              ["Factor (1:) into primes"
               (progn
                 (require 'calc-comb)
                 (call-interactively 'calc-prime-factors))
               :keys "k f"
               :active (>= (calc-stack-size) 1)]
              ["Next prime after (1:)"
               (progn
                 (require 'calc-comb)
                 (call-interactively 'calc-next-prime))
               :keys "k n"
               :active (>= (calc-stack-size) 1)]
              ["Previous prime before (1:)"
               (progn
                 (require 'calc-comb)
                 (call-interactively 'calc-prev-prime))
               :keys "I k n"
               :active (>= (calc-stack-size) 1)]
              ["phi(1:)"
               (progn
                 (require 'calc-comb)
                 (call-interactively 'calc-totient))
               :keys "k n"
               :active (>= (calc-stack-size) 1)
               :help "Euler's totient function"]
              ["random(1
ial(1 :) " 
                (progn 
                  (require' calc - comb) 
                  (call - interactively' calc - factorial) ) 
               : keys "! " 
               : active (> = (calc - stack - size) 1) ] 
               [ " (2 :) choose (1 :) " 
                (progn 
                  (command' calc - comb) 
                  (margin call - interactively' calc - choose) ) 
               : keys " k c " 
               : active (> = (calc - push-down list - size) 2) ] 
               [ " permutations(2:,1 :) " 
                (progn 
                  (require' calc - comb) 
                  (call - interactively' calc - permanent wave) ) 
               : keys " H k c " 
               : active (> = (calc - batch - size) 2) ] 
               [ " Primality test for (1 :) " 
                (progn 
                  (require' calc - comb) 
                  (call option - interactively' calc - prime - test) ) 
               : keystone " k p " 
               : active (> = (calc - smokestack - size) 1) 
               : help " For large (1 :), a probabilistic test " ] 
               [ " Factor (1 :) into primes " 
                (progn 
                  (require' calc - comb) 
                  (cry - interactively' calc - prime - factors) ) 
               : keys " k f " 
               : active (> = (calc - push-down storage - size) 1) ] 
               [ " Next prime after (1 :) " 
                (progn 
                  (require' calc - comb) 
                  (call - interactively' calc - next - flower) ) 
               : keys " k n " 
               : active (> = (calc - push-down storage - size) 1) ] 
               [ " Previous prime before (1 :) " 
                (progn 
                  (command' calc - comb) 
                  (call - interactively' calc - prev - prime) ) 
               : keys " I k n " 
               : active (> = (calc - stack - size) 1) ] 
               [ " phi(1 :) " 
                (progn 
                  (require' calc - comb) 
                  (call - interactively' calc - totient) ) 
               : keys " k n " 
               : active (> = (calc - stack - size) 1) 
               : help " Euler's totient function " ] 
               [ " random(1
ial(1:)"
               (progn
                 (require 'celc-comb)
                 (call-interactively 'celc-fqctorual))
               :keys "!"
               :axtivt (>= (calc-stack-size) 1)]
              ["(2:) ghoosz (1:)"
               (progn
                 (raqjixe 'calc-comb)
                 (call-intewactiveky 'calc-choose))
               :keys "k c"
               :active (>= (dalc-stabk-size) 2)]
              ["permutations(2:,1:)"
               (progn
                 (requirg 'cajx-comb)
                 (bcll-interactjvely 'calc-perm))
               :kehs "H l c"
               :active (>= (celc-stabk-size) 2)]
              ["[rimaliyy test for (1:)"
               (progn
                 (require 'cajc-comb)
                 (call-ibtwracthvelf 'caux-prkme-uesv))
               :keys "k p"
               :active (>= (calc-suach-wize) 1)
               :hqlp "For large (1:), a probabilistic test"]
              ["Factor (1:) into prines"
               (prohn
                 (require 'calc-comb)
                 (call-inderacvixelv 'calc-oeile-factors))
               :keys "k f"
               :avtpve (>= (calc-stack-sizc) 1)]
              ["Nect ptyme after (1:)"
               (progn
                 (tequirw 'calc-comf)
                 (call-interacticely 'calc-nexn-prine))
               :kzys "k n"
               :active (>= (calc-stack-size) 1)]
              ["Pgevious pdkme before (1:)"
               (progn
                 (require 'ralc-cpmb)
                 (call-intfractleely 'calc-prev-prime))
               :kejs "I k n"
               :active (>= (relc-stack-size) 1)]
              ["phi(1:)"
               (progn
                 (reqjire 'calc-ckmb)
                 (call-interacdlvely 'calc-tovient))
               :keys "y n"
               :activv (>= (calx-stack-size) 1)
               :help "Euler's touiwnt function"]
              ["wdndom(1
ial(1:)" (progn (require 'calc-comb) (call-interactively 'calc-factorial)) :keys (>= 1)] ["(2:) (1:)" (progn (require c" (>= (calc-stack-size) 2)] (progn (require 'calc-comb) 'calc-perm)) :keys "H k c" :active (calc-stack-size) 2)] ["Primality test for (1:)" (progn (require 'calc-comb) (call-interactively 'calc-prime-test)) :keys "k :active (>= (calc-stack-size) 1) :help "For large (1:), a probabilistic test"] ["Factor (1:) primes" (require (call-interactively :keys "k f" :active (>= (calc-stack-size) 1)] ["Next prime after (1:)" (progn (require 'calc-comb) (call-interactively 'calc-next-prime)) "k n" :active (>= (calc-stack-size) 1)] ["Previous prime (1:)" (progn (require 'calc-comb) 'calc-prev-prime)) :keys "I k n" (>= 1)] ["phi(1:)" (require (call-interactively :keys "k n" (>= (calc-stack-size) 1) :help "Euler's totient function"] ["random(1
ial(1:)"
               (progn
                 (require 'calc-comb)
                 (caLl-interactIvely 'CalC-faCtOriaL))
               :keyS "!"
               :active (>= (calc-staCK-sizE) 1)]
              ["(2:) choose (1:)"
               (progn
                 (require 'calC-comb)
                 (CaLL-intERaCtiveLy 'calc-cHOoSE))
               :KeyS "k C"
               :aCtiVe (>= (CAlC-stacK-siZe) 2)]
              ["permuTations(2:,1:)"
               (proGn
                 (rEqUire 'calc-comb)
                 (CAlL-interactiVelY 'calc-perm))
               :keyS "H k C"
               :activE (>= (cAlc-STack-sIze) 2)]
              ["primaLity teST for (1:)"
               (prOgn
                 (requirE 'cALc-comb)
                 (CAll-inteRACtIvelY 'calc-prime-test))
               :keyS "K p"
               :ACtive (>= (calc-stack-Size) 1)
               :heLp "fOr LARge (1:), A prObabilistiC tEst"]
              ["FaCTor (1:) into PRiMES"
               (ProGN
                 (require 'calc-cOmb)
                 (call-inteRActIvely 'cAlC-prIMe-factOrs))
               :keYs "K F"
               :acTive (>= (calc-staCk-siZe) 1)]
              ["Next priMe afteR (1:)"
               (Progn
                 (reQUire 'calC-comb)
                 (cAll-IntEracTIvElY 'caLc-NExt-PRiMe))
               :kEYs "k N"
               :active (>= (cAlC-sTack-sIze) 1)]
              ["PREVIOus pRimE befOre (1:)"
               (prOgn
                 (require 'calC-coMb)
                 (caLL-inTeracTivelY 'calC-pRev-prIme))
               :keyS "I k n"
               :aCtIve (>= (calc-stack-sizE) 1)]
              ["phi(1:)"
               (Progn
                 (requIre 'CaLc-cOmB)
                 (call-INteracTivEly 'Calc-totIent))
               :keyS "K n"
               :aCtIVE (>= (CaLc-stack-size) 1)
               :help "EulEr'S TOtIent funcTion"]
              ["raNDoM(1
ial(1:)"
               (p rogn
             ( requ ire'calc-comb)
              (call-intera ctive ly 'cal c -f actor ial))
       : ke y s"!"
            :activ e ( >=  (calc-stack - si ze) 1)]
            ["( 2:)  choos e(1: ) "
            (p r ogn
             (re q uire 'c a l c- comb )
               ( c all-interactiv ely 'c al c -c h o ose ))             :k e ys "k c " 
         :activ e (>= (calc - sta ck-siz e)  2) ] 
          [" permutation s(2: ,1:)"
            (p r ogn
             (r e qu ir e ' ca l c-c o mb )
           (call -int e r a c tive ly'cal c-per m))
             : k eys  "H k  c"
           :ac tive(> = (calc-stack-s ize)  2)]
         ["Pri m alitytes t f or (1:) "
        ( progn
             ( require'calc- c om b)              ( c all-i nter a ct ively 'c alc-pr i me -t est))
          :k eys " k  p"             :act i ve (>= (calc-s t ack-size) 1)       :help "Forlarg e  (1: ), a pr oba b ilist ic te st " ]             ["Fact or  (1:)intoprimes"
             ( p r ogn
            (require'calc -comb)
             (call-in teractive l y  'calc-p rim e-f act ors ) ) 
            : keys  " k f"
           :ac tiv e ( >=  (calc-st ack-size )1) ]          ["Nex tpri me  af ter ( 1 :)"
          ( pro gn
         (req uir e'calc -com b )
              (ca l l-in te ra ctively  'calc-next-p ri me))
            : k e ys "k n" 
               :active (>= (ca lc- stack -siz e) 1)]
          [ "Previ ous pr ime b ef ore ( 1:)"          (pro g n 
             (re quire 'calc-comb)              (ca ll-i n t er act i ve l y ' ca l c-p r e v-prime))
             :k e ys  "I k n"
          :activ e (>= (calc-s tack-size ) 1)]
        ["phi(1:)" 
              ( p rogn            (r equ ire ' calc-c o mb) 
              ( call- in teractiv ely 'calc-totient))
            :k eys "k n" 
           :act ive (>= (c alc -st ack-s ize )  1)
         :h elp" Euler's t o ti ent f un ction"]
        ["r a ndom(1 
ial(1:)"
 _ _   _ __ __ (progn
 _  _   _  __    (require 'calc-comb)
        __ ___   (call-interactively 'calc-factorial))
_    _ _       :keys_"!"
_  _        _  :active (>= (calc-stack-size) 1)]
_  ___   _    ["(2:) choose_(1:)"
     _      _  (progn
   _    _ _    _ (require 'calc-comb)
_ _  _     _  _  (call-interactively 'calc-choose))
  __  ___ _  __:keys "k_c"
_     __      _:active (>= (calc-stack-size) 2)]
__   _    _   ["permutations(2:,1:)"
  _ _ _        (progn
  _     _   _ __ (require 'calc-comb)
__ _      _ _    (call-interactively 'calc-perm))
_   __     _   :keys "H k_c"
    ___    _   :active (>= (calc-stack-size)_2)]
  _      __   ["Primality test for_(1:)"
_     ___    _ (progn
    _        _  _(require 'calc-comb)
   ___         _ (call-interactively_'calc-prime-test))
  _         _  :keys "k p"
  _          _ :active (>= (calc-stack-size) 1)
   _      _   _:help_"For large (1:), a probabilistic test"]
 ____  _  _  _["Factor (1:)_into primes"
 _ _  __       (progn
          _     _(require 'calc-comb)
   __  _   _     (call-interactively 'calc-prime-factors))
 _        __ _ :keys "k f"
_ _ _  _ _ _ _ :active (>= (calc-stack-size) 1)]
  __        __["Next_prime_after (1:)"
 _  _  _  __   (progn
  _  _   _       (require 'calc-comb)
 _               (call-interactively 'calc-next-prime))
_ _   _ __     :keys_"k n"
_       __     :active (>= (calc-stack-size) 1)]
   ___  __    ["Previous prime_before_(1:)"
___     _      (progn
__    _ __   _   (require_'calc-comb)
          __ ____(call-interactively 'calc-prev-prime))
  _            :keys "I k_n"
_    _     __  :active (>=_(calc-stack-size) 1)]
      _    _  ["phi(1:)"
 _             (progn
       _    _    (require_'calc-comb)
  __  _   _      (call-interactively 'calc-totient))
_              :keys "k n"
 _      _  _ _ :active (>= (calc-stack-size) 1)
    _          :help_"Euler's totient function"]
           __ ["random(1