11 lines
147 B
Plaintext
11 lines
147 B
Plaintext
!import "prelude" !Local
|
|
|
|
main = size size
|
|
|
|
size = x : y (self x : compose succ (triage
|
|
id
|
|
self
|
|
(x y : compose (self x) (self y))
|
|
x)
|
|
) x 0
|