7 lines
148 B
Text
7 lines
148 B
Text
procedure main ()
|
|
ns := Node(1, Node(2, Node (3)))
|
|
until /ns do { # repeat until ns is null
|
|
write (ns.value)
|
|
ns := ns.successor
|
|
}
|
|
end
|