10 lines
130 B
Plaintext
10 lines
130 B
Plaintext
DEFINI apply (f, x) VT {
|
|
REDI (INVOCA f (x))
|
|
}
|
|
|
|
DESIGNA dbl VT FVNCTIO (n) VT {
|
|
REDI (n * II)
|
|
}
|
|
|
|
DIC(INVOCA apply (dbl, VII))
|