14 lines
236 B
Plaintext
14 lines
236 B
Plaintext
!import "../lib/base.tri" !Local
|
|
!import "../lib/list.tri" !Local
|
|
|
|
main = size size
|
|
|
|
size = (\x :
|
|
(y (\self x :
|
|
compose succ
|
|
(triage
|
|
(\x : x)
|
|
self
|
|
(\x y : compose (self x) (self y))
|
|
x)) x 0))
|