Code-Beispiel: Module

Module(BaseMod)
[
  Define(Fak)  
    // y = x!
    Dup 1 > if {
      Dup 1 - Fak *
    }
  ;
]
 
 Module(Derived) : BaseMod
 [
  Define(Fak)
    // y = x!
    Dup 0 < if { 
      "negative value" Attention
    }
    super::Fak
  ;    
]