6 lines
120 B
Text
6 lines
120 B
Text
|
(de identity (Size)
|
||
|
|
(let L (need Size (1) 0)
|
||
|
|
(make
|
||
|
|
(do Size
|
||
|
|
(link (copy (rot L))) ) ) ) )
|