11 lines
194 B
Plaintext
11 lines
194 B
Plaintext
// Prints an X×X multiplication table
|
||
DESIGNA n VT X
|
||
|
||
DONICVM i VT I VSQVE n FAC {
|
||
DESIGNA line VT ""
|
||
DONICVM k VT I VSQVE n FAC {
|
||
DESIGNA line VT line & i * k & " "
|
||
}
|
||
DIC(line)
|
||
}
|