12 lines
230 B
Text
12 lines
230 B
Text
declare
|
|
class Demo from BaseObject
|
|
meth test(...)=Msg
|
|
{Record.forAll Msg Show}
|
|
end
|
|
end
|
|
|
|
D = {New Demo noop}
|
|
Constructed = {List.toTuple test {List.number 1 10 1}}
|
|
in
|
|
{D test(1 2 3 4)}
|
|
{D Constructed}
|